Даны два катета прямоугольного треугольника найти его гипотенузу Решите через поскаль

Question

Даны два катета прямоугольного треугольника найти его гипотенузу
Решите через поскаль

Answer 1

Var
  k1, k2, gip : real;
begin
  write('Первый катет: ');
  readln(k1);
  write('Второй катет: ');
  readln(k2);
  
  gip := sqrt(k1*k1+k2*k2);
  
  writeln('Гипотенуза: ', gip);
end.