{ 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 }