6 т.к. тело цикла это 3 значения то и выполняется операция 3 раза
Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.
<span><span>Бег - бес - бас - бак - мак - маг - шаг.</span></span>