program PassaggioParametri;
var
a, b : real;
procedure Scambio1 (var x, y: real);
var
aux : real;
begin
aux := x;
x := y;
y := aux;
end;
procedure Scambio2 (x, y: real);
var
aux : real;
begin
aux := x;
x := y;
y := aux;
end;
begin
writeln(' PRIMO ESPERIMENTO ');
writeln(' dare due valori reali: ');
readln(A, B);
writeln(' valori dati: A=', A:4:2, ' B=', B:4:2);
writeln(' esecuzione di scambio1: ');
scambio1(A,B);
writeln(' ora A=', A:4:2, ' B=', B:4:2);
writeln;
writeln(' SECONDO ESPERIMENTO ');
writeln(' dare due valori reali: ');
readln(A, B);
writeln(' valori dati: A=', A:4:2, ' B=', B:4:2);
writeln(' esecuzione di scambio2: ');
scambio2(A,B);
writeln(' ora A=', A:4:2, ' B=', B:4:2);
end.