Question

Программа предназначается для расчета площади по формуле Герона, объясните , в чем тут ошибка ?
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.