Question

Помогите пожалуйста решить

Answer 1

Я смог решить только 7

program nomer;
var a,n,x:integer;
begin
while n<=0 do
  begin
    writeln('Введите число');
    readln(x);
    if (x mod 2)=0 then a:=a+x;
    writeln('хотите закончить ввод? да=1, нет=0');
    readln(n);
  end;
writeln(a);
end.