duvida7

{*Escreva um programa que leia n valores e conte quantos deles estão em algum
dos seguintes intervalos: [0,25], [26,50], [51,75] e [76,100]. A entrada de
dados deve terminar quando for lido um número negativo ou maior que 100.*}
program questao7;
var n,i,contador,x:integer;
begin
     writeln('escreva o numero de valores a serem lidos');
     readln(n);
     contador:=0;
     for i:=1 to n do
         begin
         writeln('escreva um numero');
         readln(x);
         if (x>0) and (x<100)then
         begin
              contador:=contador+1;
         end
     end;

     writeln('contador = ',contador:5);
     readln();

end.