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

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