I，n，x，c0，c60，c70，c80，c90:整數；
開始
寫(' n=？');readln(n)；
Writeln('請輸入'，n，'學生成績')；
對於i:=1到n do
開始
讀作(x)；
案例i div 10 of
6:C6:= C6+1；
7:C7:= C7+1；
8:c8:= c8+1；
9:C9:= C9+1；
10:C9:= C9+1；
else c0:= c0+1；
結束案例
結束；
Writeln('0-59:'，c0)；
Writeln('60-69分:'，C6)；
Writeln('70-79人:'，C7)；
Writeln('80-89分:'，c8)；
Writeln('90-100:'，C9)；
結束。