{ File: ordina3.pas }

program Ordina3;
{ Legge tre interi e scambia i valori delle variabili v1, v2 e v3 in modo che
  v1 <= v2 <= v3. }

var
  v1, v2, v3 : integer;

 
  procedure Scambia (var x, y : integer);
  var
    temp : integer;
  begin
    temp:= x;
    x := y;
    y := temp
  end; { Scambia }

 
begin { Ordina3 }
  writeln('Introduci tre valori interi');
  readln (v1, v2, v3);
  if v1 > v2 then Scambia(v1, v2);
  if v2 > v3 then Scambia (v2, v3);
  if v1 > v2 then Scambia (v1, v2);
  writeln ('I valori ordinati sono');
  writeln (v1:4, v2:4, v3:4)
end. { Ordina3 }