classification of value for students (Delphi)

var nilai:integer;

begin

   nilai:=78;                                   

   if nilai<60 then

     write('D')

   else

   if nilai<75 then

     write('C')

   else

   if nilai<85 then

     write('B')

   else

     write('A');                                

   readln;

end.