将成绩变为等级

program yingfa;
var
　　g : integer;
begin
　　write('please input a number of grade: ');
　　readln(g);
　　if (g < 0) or (g > 100) then
　　　　writeln(' input error. :( ...')
　　else
　　　　case g of
　　　　　　90..100: writeln('A');
　　　　　　80..89 : writeln('B');
　　　　　　60..79 : writeln('C')
　　　　else writeln('D');
　　　　end;
end.

====================================== OR ======================================

program yingfa;
var
　　g : integer;
begin
　　write('please input a number of grade: ');
　　readln(g);
　　if (g < 0) or (g > 100) then
　　　　writeln(' input error. :( ...')
　　else
　　　　if g >= 90 then writeln('A')
　　　　else if g >= 80 then writeln('B')
　　　　else if g >= 60 then writeln('C')
　　　　else writeln('D');
end.