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

Var a,b,c,s:real;
begin
read(a,c);
b:=sqrt(c*c-a*a);
s:=a*b/2;
writeln('b=',b,' s=',s);
end.