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

http://fkn.ktu10.com/?q=node/7341

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

var i, k, Z, X, C: integer;
begin
 i := 0;
 k := 0;
    while(k <> 3) do
       begin
        writeln('vvedi celoe chislo');
        readln(i);
         if((i < 0) and ((i mod 2) <> 0)) then
           begin
            if(k = 0) then
              Z := i;
            if(k = 1) then
              X := i;
            if(k = 2) then
              begin
               C := i;
              end ;
            k := k + 1;
            if(k = 3) then
              begin
               writeln('SUMM = ', Z + X + C);
               break;
              end;
          end;
       end;
  readln();
end.