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

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

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

program U11Z8;
var i, a, b, c, d: integer;
begin
  i:=1;
  while (i <= 3) do
   begin
     writeln('Vvedite zeloe chislo:');
     readln(a);
       if ((a mod 2) = -1) then
       begin
          i:=i+1;
          d:= c;
          c:= b;
          b:= a;
       end;
   end;
  write('Pervie tri otrizatelnyh nechetnyh chisla: ', b, ', ', c, ', ', d);
  readln();
end.