Составить программу для вычисления длин высот треугольника , у которого длины сторон abc

Uses crt;
var a,b,c: integer;
h1,h2,h3,p,s:real;
begin
readln(a);
readln(b);
readln(c);
p:=(a+b+c)/2;
s:=sqrt((p-a)*(p-b)*(p-c));
h1:=2*s/a;
h2:=2*s/b;
h3:=2*s/c;
writeln(h1);
writeln(h2);
writeln(h3);
end.