Сделано, шеф!
Мне б кто физику решил, а ;)
Var a,b,c:integer;
s,p:real;
Begin
readln(a);
readln(b);
readln(c);
s:=0;
p:=0;
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(Площадь треугольника=,s);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.