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

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

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

program U15Z6;
var a: array[1..3] of integer;
    p,i,n: integer;
begin
  p:=1;
  i:=1;
  while p<=3 do
    begin
      writeln('vvedite chislo');
      readln(n);
      if (n<0) and ((n mod 2)<>0) then
        begin
         p:=p+1;
         a[i]:=n;
         i:=i+1;
        end;
    end;
  writeln('vvod zavershon');
  for i:=1 to 3 do
    write(a[i],', ');
  readln();
end.