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

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