найти произведение высот

[Lizonka-88]

найти произведение высот треугольника.
что нужно сделать чтобы при вводе отрицательного числа в результате оно мне не выводило ...proizvedenie visot = 0.
Program zad3;
uses crt;
var a,b,c,p,S,H: real;
Begin
clrscr;
writeln('vvedite dliny storoni a= ');
readln(a);
writeln('vvedite dliny storoni b= ');
readln(b);
writeln('vvedite dliny storoni c= ');
readln(c);
If (a<=0)or(b<=0)or(c<=0)
then
writeln('Nevernoe yslovie, Vvedite chisla > 0')
else
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
H:=(2*S/a)*(2*S/b)*(2*S/c);
writeln('proizvedenie visot = ',H:8:2);
end.

[McFrey]

Program zad3;
uses crt;
var a,b,c,p,S,H: real;
Begin
clrscr;
writeln('vvedite dliny storoni a= ');
readln(a);
writeln('vvedite dliny storoni b= ');
readln(b);
writeln('vvedite dliny storoni c= ');
readln(c);
If (a<=0)or(b<=0)or(c<=0)
then
writeln('Nevernoe yslovie, Vvedite chisla > 0')
else
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
H:=(2*S/a)*(2*S/b)*(2*S/c);
writeln('proizvedenie visot = ',H:8:2);
end;
end.

[Lizonka-88]

поняла, оч давно паскалем не занималась)