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

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.