{ File: ordina2.pas }

{ Scopo: procedure con passaggio di parametri per variabile }

program EsempioOrdinamento;
{ Ordina due numeri interi letti da tastiera. }
var
  p, s : integer;

  procedure Ordina (var i,j : integer);
  { Restituisce in i il minore e in j il maggiore tra i e j. }
  var
    temp : integer;
  begin
    if i > j then
    begin
      temp := i;
      i := j;
      j := temp
    end
  end; { Ordina }

begin { EsempioOrdinamento }
  write('Inserisci due numeri ! ');
  readln(p,s);
  Ordina(p,s);
  writeln('I due numeri in ordine non decrescente: ', p, ' ', s)
end. { EsempioOrdinamento }