7.3.. Napisati program za ispis uspjeha, prema slijedećoj tabeli:

Listing programa:

PROGRAM uspjeh;
VAR
oc: 1..5;
BEGIN
  Writeln('Uspjeh ');
  Write('Ocjena (1 5)');
  Readln(oc);
  CASE oc OF
    1 : Writeln('Nedovoljan');
    2 : Writeln('Dovoljan');
    3 : Writeln('Dobar');
    4 : Writeln('Vrlodobar');
    5 : Writeln('Odlican');
  END;
  READLN;

END.

Ispis na ekranu:

Index