Найдите гипотенузу прямоугольного треугольника по двум катетам A и B (в паскале)

var a,b,c:real;beginwriteln('введите два катета');readln(a,b);c:=sqrt(sqr(a)+sqr(a));writeln(c);end.