var a,b,c,m:integer; function max(x,y:integer):integer; begin if x>y then max:=x else max:=y; end; BEGIN writeln('Введите 3 числа'); readln(a,b,c); writeln('Наибольшее из них',max(m,c)); readln; END.
Объяснение: Функция max находит наибольшее число из x,y (в программе a,b). В самой программе вызываем эту функцию. Она сравнивает наибольшее из a и b с переменой c, и выводит наибольшее число.