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

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

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

var i, k, a, b, c, sum:integer;
begin
  i:=0;
  while i<3 do
    begin
      readln(k);
      if ((k<0) and ((not(k mod 2)=0))) then
        begin
          if (i=0) then
            a:=k
          else if (i=1) then
            b:=k
          else
            c:=k;
          i:=i+1;
          sum:=a+b+c;
        end;
    end;
  writeln(a, '   ', b,'   ',c, '   ','sum=',sum);
  readln();
end.