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