Урок 11 Задание 10

program Hello;
var a,b1,b2,b3,i : integer;
begin
i:=0;
begin
  while (i<>3) do
  begin
  writeln ('vvedite chislo');
  readln(a);
    begin
    if (a<0) and (a mod 2 = -1) then
      begin
      i:=i+1;
      if i=1 then
      b1:=a
      else if i=2 then
      b2:= a
      else if i=3 then
      b3:=a;
      writeln();
   
 end;
 end;
 end;
 end;
 writeln(b1+b2+b3);
end.