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

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

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

Var i,m,n: integer;
    a: array [1..3] of integer;
begin
m:=1;
i:=0;
while(m<=3) do
begin
  readln(n);
  if Odd(n) and (n<0) then
  begin
     i+=1;
     a[i]:=n;
     m+=1;
  end;
end;
write(a[1],' ',a[2],' ',a[3]);
readln();
end.