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

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

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

begin 
  i:=1; 
  while (i<=3) do 
   begin  
     writeln('vvedite chislo');
     readln(w); 
     if (i=1)AND (w < 0) AND  (w mod 2=-1)  then 
       begin 
         a:=w; 
         i+=1;
       end 
     else 
       if (i=2) AND (w < 0) AND  (w mod 2=-1)  then 
         begin 
           b:=w;
           i+=1;
         end 
        else 
          if (i=3) AND (w < 0) AND  (w mod 2=-1)  then  
            begin
             c:=w; 
             i+=1;
            end;
   end; 
  writeln('vvedennie chisla:',' ', a,' ', b,' ', c ); 
  writeln('summa chisel:',' ', a+b+c ); 
  readln(); 
end.
              


Вывод консоли:
vvedite chislo
2
vvedite chislo
-1
vvedite chislo
4
vvedite chislo
-3
vvedite chislo
6
vvedite chislo
-5
vvedennie chisla: -1 -3 -5
summa chisel: -9