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

program zz1;
var a,b,c,x,y,z:real; // задаем переменные
begin
write(введите катет ); // вводим 1-ый катет
read(a);
write(введите гипотенузу ); // вводим гипотенузу
read(c);
b:=sqrt(sqr(c)-sqr(a)); // высчитываем второй катет по аксиоме Пифагора
writeln(2-ой катет треугольника = ,b); //выводим ответ
write(введите x ); // вводим х
read(x);
write(введите y ); // вводим y
read(y);
z:=x*2-sqrt(y)+15.7*x; //высчитываем значение функции
write(значение функции z= ,z); //выводим ответ

end.