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

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

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

program programma10;
var a, b, c, i, q : integer;
begin
  a:=0;
  b:=0;
  c:=0;
  i:=0;
  while (i <> 3) do
  begin
    writeln('Vvedite chislo:');
    readln(q);
     if (a=0) and (q<0) then
     begin
       a:=q;
       i:=i+1;
     end else
     if (b=0) and (q<0) then
     begin
       b:=q;
       i:=i+1;
     end else
     if (c=0) and (q<0) then
     begin
       c:=q;
       i:=i+1;
     end;
  end;
  writeln('Cymma otricatelnix chisel: ',a+b+c);
  readln();
end.