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

Question

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

Answer 1

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