7.3.. Napisati program za upis ocjena i ispis uspjeha.

Listing programa:

PROGRAM Test;
USES
  WinCrt;
VAR
  bb: 0..100;
BEGIN
  Writeln('Uspjeh ');
  Write('Broj bodova na testu (0 100)');
  Readln(bb);
  CASE bb OF
    0..60 : Writeln('Nedovoljan');
    61..70 : Writeln('Dovoljan');
    71..80 : Writeln('Dobar');
    81..90 : Writeln('Vrlodobar');
    91..100 : Writeln('Odlican');
  END;
END.

Ispis na ekranu:

Index