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

Listing programa:

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

Ispis na ekranu:

Index