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

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

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

program project1;
var numArr: array[1..3] of integer;
i,count,numb: integer;
begin
  count:=0;
  i:=1;
  while(count<3)do
  begin
    write('Введите числа '); readln(numb);
    if((numb<0)and(numb mod 2<>0))then
      begin
      count:=count+1;
      numArr[i]:=numb;
      i:=i+1;
      end;
  end;
  write('Значения в массиве ');
  for i:=1 to 3 do
  write(numArr[i],' ');
  readln();
end.