1# Pretvaranje brojevnih ocena u opisne

program ocene_opisno;
uses crt;
 var
   ocena:integer;

  //program koji brojevnu ocenu pretvara u opisnu

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

   if (ocena=1) then writeln('nedovoljan');
   if (ocena=2) then writeln('dovoljan');
   if (ocena=3) then writeln('dobar');
   if (ocena=4) then writeln('vrlodobar');
   if (ocena=5) then writeln('odlican');
   if ((ocena<1) OR (ocena>5)) then writeln('nije ocena');

   readln();
 end.