(программирование)Даны катеты прямоугольного треугольника. Найти его гипотенузу.(Pascal...

Question

(программирование)
Даны катеты прямоугольного треугольника. Найти его гипотенузу.(Pascal ABC)

Answer 1

Var
a,b:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
WriteLn('c = ',sqrt(a*a+b*b));
End.