7.3.. Sa tastature se upisuju jedan od brojeva 1, 2, 3, 4. Za očitani broj ispisati tekstualno koji je broj.

Listing programa:

PROGRAM p07311025;
VAR
  br: 1..4;
BEGIN
  Writeln('Ispisi broj');
  Write('Broj (1 4) ');
  Readln(br);
  CASE br OF
    1 : Writeln('Jedan');
    2 : Writeln('Dva');
    3 : Writeln('Tri');
    4 : Writeln('Cetiri');
  END;
  
  READLN;
END.

Ispis na ekranu:

Index