Наберите на Паскаль программу вычисления гипотенузы по теореме Пифагора.Даю 50 поинтов.Заранее спасибо

Program Gipotenuza;

var a,b,c:real;

begin

 writeln('Введите сторону a: ');

 readln(a);

 writeln('Введите сторону b: ');

 readln(b);

 c:=sqrt(a*a+b*b);

 writeln('Гипотенуза равна: ', c);

end.