Программа предназначается для расчета площади по формуле герона, объясните , в чем тут ошибка ? program dom_zad_2; var a, b, c, p, s: real; begin if (a writeln ('значение стороны a: '); readln(a); writeln ('значение стороны b: '); readln(b); writeln ('значение стороны c: '); p: =( a+b+c )/2; s: = sqrt(p*(p-a)*(p-b)*(p-c)); if s< 0 then writeln ('невозможно'); end; end.

Program dom_zad_2;
var a, b, c, P, S: real; 
begin 
writeln ('Значение стороны a:');
readln(a);
writeln ('Значение стороны b:');
readln(b);
writeln ('Значение стороны c:');
readln(c);
P:=(a+b+c)/2;
S:=P*(P-a)*(P-b)*(P-c); 
if s<=0 then writeln ('Невозможно')
else writeln('s = ',sqrt(s):5:2);
end.

Пример 1:
Значение стороны a: 3
Значение стороны b: 4
Значение стороны c: 5
s = 6.00

Пример 2:
Значение стороны a: 2
Значение стороны b: 2
Значение стороны c: 5
Невозможно