var a,b,c:integer; стороны для треугольника
s,p:real;
begin
write('Введите сторону а = ');readln(a);
write('Введите сторону b = ');readln(b);
write('Введите сторону c = ');readln(c);
if ((a < b + c) or (b < a + c) or (c < a + b)) then begin проверка на существовании треугольника, а то как площадь получить если треугольника нет=)
p:=(a+b+c)/2; формула полупериметра
s:=Sqrt(p*(p-a)*(p-b)*(p-c)); формула Герона для нахождении площади треугольника
writeln('Площадь треугольника равна s = ',s:0:4);
end else writeln('Треугольник не существует!');
end.
П.С. что не понятно постараюсь объяснить, но я думаю вы прекрасно во всем разберетесь;)
Во вложении блок схема
