1# Ocene opisno Case uslov

program ocene_opisno_case;
uses crt;
 var
   ocena:integer;

  //program koji brojevnu ocenu pretvara u opisnu

  begin
   clrscr();
   writeln('Unesite ocenu');
   write('ocena=');
   readln(ocena);

    case (ocena) of
1:writeln('nedovoljan');
2:writeln('dovoljan');
3:writeln('dobar');
4:writeln('vrlo dobar');
5:writeln('odlican');
else writeln('nije ocena');
end;

   readln();
 end.