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

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

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

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