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

Program gipotenuza;
Uses CRT;
Var a, b, c : real;
Begin
CLRSCR;
Writeln( введите длину первого катета a= );
Readln(a);
Writeln( введите длину второго катета b= );
Readln(b);
с:=sqrt(sqr(a)+sqr(b));
writeln( длина гипотенузы c= , c:5:2);
repeat until keypressed;
END.