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

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

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

program u11z10;
var a,b,c,i,e,f,h:integer;
begin
 a:=1;
 b:=1;
 c:=1;
 i:=1;

 while (a > 0) or (a mod 2 = 0) do
 begin
  begin
    writeln('vvedite chislo a');
    readln(a);
     if  (a < 0) and (a mod 2 <> 0)  then
  end;
     while (b > 0) or (b mod 2 = 0)  do
     begin
      writeln ('vvedite chislo b');
      readln(b);
       if (b < 0) and (b mod 2 <> 0) then
     end;
     while (c > 0) or (c mod 2 = 0) do
      begin
       writeln('vvedite chislo c');
       readln (c);
        if (c < 0) and (c mod 2 <> 0) then
     end;
 end;
for i:= 1 to 3 do
begin
 if (i = 1) then
 e:=a;
  if (i = 2) then
   f:=b else
       h:=c;
 end;
  writeln('summa chisel',e+f+h);

readln();
end.