program distribuidor;
var n,i,i1,i2,i3,i4: SmallInt;
begin
	i1:=0;i2:=0;i3:=0;i4:=0;
	writeln('Escreve 20 numeros',#13,#10);
	For i:=1 to 20 do begin
		Repeat
			write('numero ',i,'? ',#13,#10,'>');readln(n);
			if(n<0) or (n>101) then 
				writeln('dados invalidos [0,100]');
		Until (n>0) and (n<101);
		case n of
			0..25: i1:=i1+1;
			26..50: i2:=i2+1;
			51..75: i3:=i3+1;
			76..100: i4:=i4+1;
		end;
	end;
	writeln(i1,' numeros pretencem a [0,25]');
	writeln(i2,' numeros pretencem a ]25,50]');
	writeln(i3,' numeros pertencem a ]50,75]');
	writeln(i4,' numeros pertencem a ]75,100]');
	readln;
end.