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