Pascal :

program sb;
var a:integer;
begin 
readln(a);
if a>=90 then writeln('A');
	if (a>=80) and (a<=89) then writeln('B');
		if (a>60) and (a<=79) then writeln('C');
			if (a<=60) and (a>=0)then writeln('60');
end.