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

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

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

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