Программирование на Паскале: алгоритм расчета гипотенузы