1. в прямоугольном треугольнике известны катет и гипотенуза(ввод с другой катет. 2.для расчета функции z=x2-квадратный корень из y+15,7*x x ввод с клавиатуры.

Var x,y,z:real
begin
writeln('Введите катет: ');
readln(x);
writeln('Введите гипотенузу: ');
readln(y);
z:=sqrt(sqr(y)-sqr(x));
writeln('Катет равен', z);
end.

2.
var a,b,c,d:real;
begin
writeln('Введите число x: ');
readln(a);
writeln('Введите число y:');
readln(b);
c:=sqr(a);
d:=sqrt(b+15.7*b);
writeln('Из формулы z=x2, z=', с);
writeln('Из формулы кв. корень(y+15.7*x)=', d);
end.
//че офигел так сложно писать? Я твое второе задание вообще не понял