задача 6 урок 15

задача 6 урок 15

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

program task_6_lesson_15;
var a: array[1..3] of integer;
  i, n : integer;
begin
  i := 1;
  while i <= 3 do
  begin
    readln(n);
    if ((n mod 2) < 0) then
       begin
         a[i] := n;
         i += 1;
       end;
  end;
  for i := low(a) to high(a) do
    write(a[i], ' ');
  readln
end.