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

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

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

var
  i,a,b,c,d:integer;
begin
  i:=0;
  while (i < 3) do
  begin
    writeln('Vvedite chislo');
    readln(a);
    if (a < 0) and ((a mod 2)<>0) then
     begin
       if (i=1) then
        b:=a
       else if (i=2) then
        c:=a
        else if (i=3) then
         d:=a;
        i:=i+1;
     end;
  end;
  writeln('Cymma chisel ravna: ',b+c+d);
  writeln('Konets tsikla');
  readln();
end.