Программа в Pascal. Определите длину гипотенузы, если известны длины катетов

program znanijavar   a,b: real; // катеты   c: real; // гипотенуза begin   write ('Введите длины катетов.');   readln (a,b);   c := sqrt(a*a+b*b);   writeln ('Гипотенуза равна:', c); end.