<-HOME  <-FLOWCHART
PROGRAM Number8;
USES crt;
VAR i,l,n,num,data:integer;
    sum1,sum2,sum3,sum4:integer;
BEGIN
    clrscr;
    gotoxy(3,3);
    write('Enter number of Numberic Data to input from keyboard : ');
    readln(n);
    writeln('Value of data');
    l:=6;
    for i:=1 to n do
    begin
    gotoxy(12,l);
    write(i);
    gotoxy(32,l);
    read(num);
    if num <= 11 then
       sum1:=sum1+1
       else if num <= 101 then
            sum2:=sum2+1
            else if num<=1001 then
                 sum3:=sum3+1
                 else
                 sum4:=sum4+1;
    l:=l+1;
    end;
   clrscr;
    writeln('Value Range');
    writeln('Number of Data');
    writeln('0-10:  ',sum1);
    writeln('11-100:  ',sum2);
    writeln('101-1000:  ',sum3);
    writeln('>1000:  ',sum4);
    writeln('Program by Miss Orathai Jaiyah 4411063');
END.