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

program p1;
uses crt;
var S, a, b, c:real;
begin
write('Введите площадь треугольника: '); readln(S);
write('Введите один из катетов: '); readln(a);
b:=S/(1/2*a);
c:=sqrt(a*a+b*b);
writeln('Второй катет = ', b);
writeln('Гипотенуза = ', c);
end.