Нужно составить по блок схеме программу в Паскале. ​

Объяснение:

var a,b,c,p,s : real;

   str : string;

begin

write('a = '); readln(a);

write('b = '); readln(b);

write('c = '); readln(c);

if (a + b > c) OR (a + c > b) or(a+c > a) then

begin

p:= (a + b + c) / 2;

s:= sqr(p * (p - a)* (p - b) * (p - c));

str := FloatToStrF(s);

end else

str := 'Треугольник не существует';

writeln(str);

end.