7.1.. Napisati program za ispis uspjeha na osnovu prosjeka.

PROGRAM p07111002;
USES
  WinCrt;
VAR
  oc: REAL;
BEGIN
  Write('Prosjek (1.0  5.0) ');
  Readln(oc);
  Write('Uspjeh: ');
  IF oc < 1.5 THEN Writeln('Nedovoljan');
  IF (oc >= 1.5) and (oc < 2.5) THEN Writeln('Dovoljan');
  IF (oc >= 2.5) and (oc < 3.5) THEN Writeln('Dobar');
  IF (oc >= 3.5) and (oc < 4.5) THEN Writeln('Vrlo dobar');
  IF (oc >= 4.5) THEN Writeln('Odlican');
END.

Ispis na ekranu:

Index