С клавиатуры вводится последовательность чисел необходимо их сумировать пока не будет введено число кратное 2.Результат вывести на экран. ЗАРАНЕЕ СПАСИБО

мы еще repeat и until не проходили

А что вы проходили?

While - do проходили?

да прошли

отлично

Program v;Var a,b:integer;BEGINa:=1;While (a mod 2 <> 0) do beginreadln (a);if (a mod 2 <> 0) thenb:=b+a;end;writeln (b);END.