Составить программу для вычисления длин высот треугольника, у которого длины сторон a,b,c ( целые числа введённые с клавиатуры) — Pascal(Паскаль)

program zadacha;
uses crt;
var a,b,c,s,h,p: real;
begin
clrscr;
writeln('BBedite CToPoHy a');
readln(a);
writeln('BBedite CToPoHy b');
readln(b);
writeln('BBedite CToPoHy c');
readln(c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
write('S=',s:0:2);
readln
end.