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

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