2)
var
catet1, catet2, c: real;
begin
write('первый катет = ');
readln(catet1);
write('второй катет = ');
readln(catet2);
c := sqrt(catet1*catet1 + catet2*catet2);
writeln('гипотенуза: ',c:1:2)
end.
Первая задачка условие не понятно, напиши в коментах что найти нужно, что за переменная