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

Задача 7 Урок 15:

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

program u15z7;
var a:array [1..3] of integer;
var i,b:integer;
begin
  i:=1;
  while i<=3 do
  begin
    writeln('Vvedite chislo');
    readln(b);
    if (b mod 2<>0) and (b<0) then
    begin
      a[i]:=b;
      i:=i+1;
    end;
  end;
  writeln(a[1],' ',a[2],' ',a[3]);
  readln();
end.