program Teorema_P;
var A, B, C: real;
begin
writeln ('Введите значение первого катета:');
readln (A);
writeln ('Введите значение второго катета:');
readln (B);
C:=sqrt(A*A + B*B);
writeln ('Катет А = ', A, ', катет В = ', B, ', гипотенуза С = ', C:5:3);
end. значит это неправильно?