Uses crt;
var
a,b,c:byte;
s,p:integer;
begin
clrscr;
write('a: ');readln(a);
write('b: ');readln(b);
write('c: ');readln(c);
p:=(a+b+c)/2;
s:=p*(p-a)(p-b)(p-c);
writeln(' площадь треугольника = ',s);
readln;
end.
p.s: писала без паскаля, ошибки не проверила)) но должно правильно решить:)