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

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