7.2.. Učitati dva broja a zatim ispisati manji pa veći broj.
Listing programa:
PROGRAM P07211033; VAR x, y : REAL; BEGIN WRITELN('Dva broja'); READLN(x,y); IF x<y THEN WRITE(x,y) ELSE WRITE (y,x); READLN; END.
Ispis na ekranu:
Index