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

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

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

program Variant2;
var a, b, s: integer;
begin
  b := 0;
  s := 0;

  while (b < 3) do
  begin
    writeln('vvedite chislo');
    readln(a);
    if ((a < 0) AND ((a mod 2) <> 0)) then
      b := b + 1;
      s := s + a;
  end;
  writeln(s);

  readln();
end.