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

Listing programa:

PROGRAM p07311021;
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;
  READLN;

END.

Ispis na ekranu:

Index