Массив с ограниченнием и подсчётом данных.

program rez;
var
a:array [1..12] of real;
i:integer;
b:array [1..12] of integer;
begin
writeln('BBeDuTe maccuB');
for i:=1 to 12 do
  begin
  b[i]:=0;
  readln(a[i]);
  if (a[i]>9.9) or (a[i]<0) then
  begin
 
  writeln('BbixoD u3 npeDela');
  readln;
  exit;
  end;
  end;
  readln;
  writeln;
for i:=1 to 12 do
  begin
  write(a[i]:5:1);
  end;
  for i:=1 to 10 do
  begin
  if (a[i]>=0.0) and(a[i]<=0.9) then
  inc(b[1]);
  if (a[i]>=1.0) and(a[i]<=1.9) then
  inc(b[2]);
  if (a[i]>=2.0) and(a[i]<=2.9) then
  inc(b[3]);
  if (a[i]>=3.0) and(a[i]<=3.9) then
  inc(b[4]);
  if (a[i]>=4.0) and(a[i]<=4.9) then
  inc(b[5]);
  if (a[i]>=5.0) and(a[i]<=5.9) then
  inc(b[6]);
  if (a[i]>=6.0) and(a[i]<=6.9) then
  inc(b[7]);
  if (a[i]>=7.0) and(a[i]<=7.9) then
  inc(b[8]);
  if (a[i]>=8.0) and(a[i]<=8.9) then
  inc(b[9]);
  if (a[i]>=9.0) and(a[i]<=9.9) then
  inc(b[10]);
  end;
  writeln;
  writeln('B uHtepBale [0..9.9]',b[1]);
  writeln('B uHtepBale [1..1.9]',b[2]);
  writeln('B uHtepBale [2..2.9]',b[3]);
  writeln('B uHtepBale [3..3.9]',b[4]);
  writeln('B uHtepBale [4..4.9]',b[5]);
  writeln('B uHtepBale [5..5.9]',b[6]);
  writeln('B uHtepBale [6..6.9]',b[7]);
  writeln('B uHtepBale [7..7.9]',b[8]);
  writeln('B uHtepBale [8..8.9]',b[9]);
  writeln('B uHtepBale [9..9.9]',b[10]);
  end.