Задача 6 Урок 15

Задача 6 Урок 15

Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные. Как только массив будет заполнен, завершите цикл ввода новых значений пользователем и распечатайте полученный массив.

var a : array [1..3] of integer;
    i, b, k, c : integer;
begin
  i := 1;
  while(i < 4) do
    begin
    writeln ('vvedi celoe chislo');
    readln(c);
      if(((c mod 2) <> 0) and (c < 0)) then
        begin
          a[i] := c;
          i := i + 1;
        end;
    end;
  for i := low(a) to high(a) do
    writeln(a[i]);
  readln();
end.