7.2.. Učitati dva broja a zatim ispisati manji pa veći broj.

Listing programa:

PROGRAM P07211033;
USES
  WinCrt;
VAR
  x, y : REAL;
BEGIN
  WRITELN('Dva broja');
  READLN(x,y);
  IF x<y THEN 
    WRITE(x,y) 
  ELSE 
    WRITE (y,x);
END.

Ispis na ekranu:

Index