Я смог решить только 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.
<em>Только вместо пустых ячеек, надо поставить свои слова<u /><u /></em>
Данные записанные в одну строку таблицы это - основы.
Как-то так. Надеюсь поймёшь. Должно быть правильно)