Решите паскаль: найти площадь прямоугольного треугольника зная длину его катетов.

Program rrr;
var:a,b,c,s,p:real;
begin
writeln(a); read(a);
writeln(b);read(b);
writeln(c);read(c);
p:=(a+b+c)/2;
s:=scrt(p*(p-a)*(p-b)*(p-c));
writeln(s)
end.