Решение задачи 8 из главы 11

Решение задачи 8 из главы 11

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

program Project8;
var i, a, b, c, d: integer;
begin
  i:=1;
  while (i <= 3) do
   begin
     writeln('Vvedite zeloe chislo:');
     readln(a);
       if (a < 0) AND ((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.