Массив

[Anton34]

Подскажите, как мне сделать так, что бы программа получала на вход целые числа, количество введёных чисел не известно, последовательность заканчивается числом 0 (признак окончания ввода, в последовательность не входит). Количество чисел не больше 1000 и по модулю не превышают 30000 ?
Я пробовал через оператор while , но у меня ни чего не получилось.
PS: Pascal

[Greblin]

Какой язык?

[Anton34]

Pascal (паскаль)

[Greblin]

var a: array[1..1000] of integer;
     i: integer;
     count: integer;

begin
count := 1;
repeat
  read(i);
  if (i <> 0) begin a[count] := i; count := count + 1; end;
until (i = 0);
end.

[Anton34]

Спасибо ОГРОМНОЕ!!!!!!!!!