Ответ: //a,b,c-стороны треугольника//p-полупериметрvar    a, b, c, p: real;begin    readln(a, b, c);    p := (a + b + c) / 2;    writeln(‘S=’, sqrt(p * (p — a) * (p — b) * (p — c))); // формула геронаend.