нужно выяснить результат программы​

//pascal abc.net 3.1 сборка 1256 var   a,b,c,s,p: real; begin readln(a,b,c); if (a+b> c) and (b+c> a) and (a+c> b) then   begin   p: =(a+b+c)/2;   s: =sqrt(p*(p-a)*(p-b)*(p-c));   writeln('s=',s);   end   else   writeln('такого треугольника не существует.'); end. пример ввода: 3 4 3 пример вывода: s=4.47213595499958

program pyat;

var a, b, c, d ,f, p : integer;

begin

writeln ('vvedite dlini storon pyatiugolnika');

readln (a);

readln (b);

readln (c);

readln (d);

readln (f);

p: = a+b+c+d+f;

writeln ('perimetr raven', p);

readln;

end.

х = log₂ n;

х = log₂ 12 бит.

как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст

вот она

program ohotnik;

uses crt;

var i: integer;

begin 

clrscr;

textcolor(4);

write(' ka}i{gbiu ');

textcolor(12);

write(' oxothuk ');

textcolor(14);

write(' }i{ejiaet ');

textcolor(2);

write(' 3hatb ');

textcolor(3);

write(' rge ');

textcolor(1);

write(' cug9t ');

textcolor(5);

write(' fa3ahbi ');

readln;

end.

 

зы: слова я пытался писать буквами, я не знаю просто: поддерживает твой паскаль буквы или нет..