Написать программу на Паскале.Заданы длины двух катетов в прямоугольном треугольнике.Найти длину гипотенузы.

var  

   k1, k2 , g: real;

begin

   write('k1=');

   readln(k1);

   write('k2=');

   readln(k2);

   c := sqrt(k1*k1 + k2*k2);

   writeln('g=',g:1:2);

end.