Составить программы на нахождение гипотенузы в прямоугольном треугольнике по введеной клавиатурой катета

Program enot;
Var a,b,i: integer;
c: real;
begin
read(a,b);
i:=a*a+b*b;
c:= sqrt(i);
writeln(c);
end.