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

http://fkn.ktu10.com/?q=node/7341
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.

var i, min,a,b,c: integer;
begin
i:=1;
while i <= 3 do
begin
writeln('vvedite celoe chislo ');
readln(min);
if (min < 0) AND ((min mod 2)= -1) then
begin
if (i=1) then c:=min
else if (i=2) then b:=min
else if (i=3) then a:=min;
i:=i+1;
writeln('summa pervih treh otric chisel = ', a+b+c);
end;
end;
end.