C++ :

#include<iostream>
using namespace std;
int main()
{
	int n,x,ans1=0,ans2=0,ans3=0,ans4=0,ans5=0;
	cin>>n;
	for (int i=1; i<=n; i++)
	{
		cin>>x;
		if (x<=59) ans1++;
		else if (x<=69) ans2++;
		else if (x<=79) ans3++;
		else if (x<=89) ans4++;
		else ans5++;
	}
	cout<<ans1<<endl<<ans2<<endl<<ans3<<endl;
	cout<<ans4<<endl<<ans5<<endl;
	return 0;
}

Pascal :

var  n,i,a,s1,s2,s3,s4,s5:longint;
begin
  read(n);
  for i:=1 to n do
  begin
    read(a);
    if a>=90 then
      inc(s5)
    else
      if (a>=80) and (a<90) then
        inc(s4)
      else
        if a>=70 then
          inc(s3)
        else
          if (a>=60) and (a<70) then
            inc(s1)
          else
            inc(s2);
  end;
  writeln(s2);
  writeln(s1);
  writeln(s3);
  writeln(s4);
  writeln(s5);
end.