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

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

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

var a,b,c,j,i: integer;
begin
i:=1;
while i<=3 do
begin
readln(j);
if (j<0) and (j mod 2 =-1) then
begin
    if i=1 then a:=j;
    if i=2 then b:=j;
    if i=3 then c:=j;
    i:=i+1;
end;
if i>3 then 
    writeln(a+b+c);
end;
end.