var
a,b:string;
x:Integer;
begin

write('nama : ');Readln(a);
write('NRP  : ');Readln(b);
write('nilai anda : ');Readln(x);

writeln('====cetak====');
writeln(a);
writeln(b);
if x > 95 then
writeln('nilai anda A')
else if x > 75 then
Writeln('nilai andan B')
else if x > 50 then
writeln('nilai anda C')
else write('niali anda D');



readln;
end.