{ File: scambio.pas } { Scopo: procedure con passaggio di parametri per variabile } program EsempioScambio; var p, s : integer; procedure NonScambia (i,j : integer); var temp : integer; begin temp := i; i := j; j := temp end; { NonScambia } procedure Scambia (var i,j : integer); var temp : integer; begin temp := i; i := j; j := temp end; { Scambia } begin { EsempioScambio } write('Inserisci due numeri : '); readln(p,s); NonScambia(p,s); writeln('I due numeri NON sono stati scambiati: ', p, ' ', s); Scambia(p,s); writeln('I due numeri sono stati scambiati: ', p, ' ', s) end. { EsempioScambio }