{ File: max2.pas } { Scopo: uso di una funzione } program Max2Numeri; { Legge due numeri interi e stampa il maggiore. } var primo, secondo : integer; function Max (p,s : integer) : integer; begin if p > s then Max := p else Max := s end; { max } begin {Max2Numeri} write('Due numeri interi ? '); readln(primo,secondo); writeln('Maggiore : ', Max(primo,secondo)) end. { Max2Numeri }