Урок 11 Задание 8

Задание 7 Урок 11

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

program Project1;
var i: integer;
 
begin
  i:=-1;
  while (i <0) do
    begin
      writeln('vvedite chislo: ');
      readln(i);
        if (i<0) and (i mod 2 = 1) then
          writeln('i')
        
    end;
 
 
  writeln('<<konec>>');
 
  readln();
 
end.  

Консоль:

vvedite celoe chislo:
7
summa:7+0+1-8
vvedite celoe chislo:
4
summa:4+7+0-11
vvedite celoe chislo:
9
summa:9+4+7-20
vvedite celoe chislo:
2
summa:2+9+4-15
vvedite celoe chislo:
19
poka