Napisati program za unos n parova sa procedurom koja obrce redoslijed brojeva u unesenom paru ako je prvi broj veći od drugog.

Listing programa:

PROGRAM Parovi;
USES
  WinCrt;
VAR
  x,y,i,n :Integer;
  
PROCEDURE Zamjena (Var x,y:Integer);
VAR
  t: Integer;
BEGIN
  t := x;
  x := y;
  y := t;
END;

BEGIN       {MAIN}
  Write('n = ');
  Readln(n);
  FOR i := 1 TO n DO
    BEGIN
      Write ('x, y = ');
      Readln(x, y);
      IF x>y THEN Zamjena(x,y);
      Writeln('ispravan redoslijed   x i y ', x, '   ',y);
   END;
END.

Ispis na ekranu:
n = 4
x, y = 1 2
ispravan redoslijed x i y:  1 2
x, y = 5 2
ispravan redoslijed x i y:  2 5
x, y = 7 3
ispravan redoslijed x i y:  3 7
x, y = 6 1
ispravan redoslijed x i y:  1 6

Index