Язык програмирования paskal/ : даны катеты прямоугольного треугольника .найти его гипотенузу

Var a, b, c:real;
begin
writeln('Введите длины катетов прямоугольного треугольника: ');
read (a, b);
c := sqrt( sqr(a) + sqr(b) );
writeln('Гипотенуза равна ', c);
end.