заполнить массив из 10 элементов целыми числами из промежутка [-20;29],числа вводятся

Язык?

Код Pascal.

const  n = 10;
var 
  a: array[1..n] of integer; 
  i, c: integer;
begin 
  i := 0; 
  while 1 = 1 do   begin   
    if i = 10 then break;   
    readln(c);   
    if (c lt;= 29) and (c gt;= -20) then begin     
      inc(i);     
      a[i] := c;   
    end else writeln('Число выходит за границы'); 
  end; 
  writeln('Готово'); 
  readln;
end.

Вродь как-то так