Напишите программу, запрашивающую три стороны треугольника А, В, С и вычисляющую его площадь по формуле Герона

Если паскаль, то форму сам знаешь как, наверное вот тебе тело.

var p, S, AB, BC, AC : real (если не работает, то Integer) ;

begin

readln (AB) ;

readln (BC) ;

readln (AC) ;

p: = (AB+BC+AC) / 2;

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

Writeln (s)

end.

Поправь там знаки или ещё что-нибудь - я не в программе писал.