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

Listing programa:

PROGRAM uspjeh;
USES
  WinCrt;
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;
END.

Ispis na ekranu:

Index