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

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

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

program U11Z8;
var i, s, a, b, c: integer;
begin
    i:=1;
    while i<=3 do
        begin
             writeln('vvedite celoe chislo');
             readln(s);
             if ((s mod 2)=-1) then
                begin
                    i:=i+1;
                    c:=b;
                    b:=a;
                    a:=s;
                end;
         end;
    writeln('summa = ', a+b+c);
    readln();
end.