Составить программу, рассчитывающую гипотенузу прямоугольного треугольника по катетам введённым с клавиатуры.

Program gipot;
Uses Crt;
Var a,b,c:real;
begin
clrscr;
Writeln ('a,b =');
Read (a,b);
c:=sqrt(sqr(a)+sqr(b));
Writeln ('c=',c);
readkey;
end.