Паскаль Герон Что здесь неверно? program Geron; var a, b, c: integer; p, s: real; begin writeln('введите стороны треугольника a, b, c'); readln (a, b, c); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('площадь треугольника s=', s); readln end.
В конце readln не требуется, тк считывать нечего. И чтоб не было некрасивого числа в конце допиши "writeln('площ. треуг.s=',s:3:2 );