Ввести с клавиатуры значение площади прямоугольного треугольника. (треугольник равнобедренный). Вывести на экран значение катетов, гипотенузы. Использовать процедуру для получения результатов "Выходные переменные"

program zz1;

var a, c, S:real; / /задаем переменные не целого типа

begin

write ('введите площадь прямоугольного треугольника '); / / вводим заданную площадь треугольника

read (s);

a:=sqrt (2 * s); / / находим катет прямоугольного треугольника по формуле

c:=sqrt (a * a + a * a); / / находим гипотенузу треугольника по теореме Пифагора

writeln (' Выходные переменные: ');

writeln (' катеты прямоугольного треугольника = ', a:5:2); / / выводим ответы

write (' гипотенуза прямоугольного треугольника = ', c:5:2);

end.