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

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.