нужно кто сможет сделайте. Хотелось бы с объяснением

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

вроде так

5`120`000 бит =  640 000 байт = 625 кб

var

a,b: integer;

begin

write('введите в одной строке два целых числа и нажмите < enter> ');

readln(a,b);

if a=b then writeln('числа равны')

else 

if a> b then writeln(a,' больше')

else writeln(b,' больше')

end.

var a: array[1..100] of integer; i,s,n,m: integer; begin randomize; read(n,m); for i : = 1 to 100 do begin a[i]: =random(m-n) +n; if (i mod 2 =0) and (a[i] mod 2 = 0) then s: =s+1; end; writeln(s); end.