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