Урок 11 задача 10

Урок 11 задача 10

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

var numb, numb2, numb3,numb4, check: integer;
begin
check:=0;
numb:=0;
numb2:=1;
numb3:=1;
while check < 3 do
begin
    writeln('vvedite chislo: '); readln(numb);
    if (numb mod 2= -1) then
      begin
         numb4:=numb3;
         numb3:=numb2;
         numb2:=numb;
         check:=check+1;
      end;
end;
writeln('otricatelnoe i nechetnoe chislo, summa: ', numb4+numb3+numb2);
readln();
end.