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.
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.