7.3.. Napisati program za ispis manjeg od dva učitana broja (koristiti naredbu CASE).

Listing programa:

PROGRAM p07311017;
USES
  WinCrt;
VAR
  x, y : REAL;
BEGIN
  Writeln('Manji od 2 ucitana broja');
  Write('Dva broja ');
  Readln(x, z);
  CASE x <= y OF
    TRUE : Writeln('Manji broj je = ', x);
    FALSE : Writeln('Manji broj je = ', y);
  END;
END.

Ispis na ekranu:

Index