Заполнить массив из 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 <= 29) and (c >= -20) then begin     
      inc(i);     
      a[i] := c;   
    end else writeln('Число выходит за границы'); 
  end; 
  writeln('Готово'); 
  readln;
end.

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