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

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

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

var a,b,c,i: integer;
begin
   while (i < 3) do;
     begin
      writeln('vvedite 4isla - ');
      readln(i);
      if (i < 0) and ((i mod 2)=1) then
        begin
          if (i = 1) then
            readln(a)
          else if (i = 2) then
            readln(b)
          else readln(c);
        end;
      writeln('summa : ', a + b + c);
      i := i + 1;
     end;
   readln();
end.