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

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