//В стиле старых Pascal`ейvark, l, m, max: real; //сюда запомним считанные //с клавиатуры значенияbeginwrite ('Введите 3 стороны: '); //приглашаем к вводуreadln (k, l, m); //считываем стороны//гипотенуза прямоугольного треугольника//априори его наибольшая сторона//=> нужно найти наибольшую сторону(значение)if k>l then max:=k else max:=l;if m>max then max:=m;write ('Гипотенуза=', max); //выводим большую сторону// гипотенузуend.