(*           Teresa Tong F.4AS 30   October,2001       *)
(* to print out the grade equivalence of the exam mark *)

program PocessMarks2;
uses wincrt;
var Mark : integer;
begin
  write( 'Enter Exam Mark: ' );
  readln( Mark );
  if Mark >= 90
    then writeln( 'A' );
  if ( Mark >= 80 ) and ( Mark < 90 )
    then writeln( 'B' );
  if ( Mark >= 70 ) and ( Mark < 80 )
    then writeln( 'C' );
  if ( Mark >= 60 ) and ( Mark < 70 )
    then writeln( 'D' );
  if ( Mark >= 50 ) and ( Mark < 60 )
    then writeln( 'E' );
  if Mark < 50
    then writeln( 'F' )
end.

-/-\-/-\-/-\-/-\-/-\-/-\-/-\-/-\-/-\-/---\\-/-\-/-\-/-\-/-\-
e.g.
1) Enter Exam Mark:         95
   A
------------------------------------------------------------
2) Enter Exam Mark:         32
   F
------------------------------------------------------------
3) Enter Exam Mark:         60
   D
    

    Source: geocities.com/ttt_7_ttt/home6

               ( geocities.com/ttt_7_ttt)