Задача 8 Урок 11

Задача 8 Урок 11

Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.

var
  i,a:integer;
begin
  i:=0;
  while (i < 3) do
  begin
    write('Vvedite chislo: ');
    readln(a);
     if (a < 0) and ((a mod 2)<>0) then
      begin
       writeln(a,' ');
       i:=i+1;
      end;
  end;
  readln();
end.