Найти количество четных чисел в последовательности чисел.Последовательность чисел заканчивается 0.Паскаль Помогите пожалуйста

Спасибо большое,только после Readln ; забыл,но не важно

Перед end можно не ставить ;

Ну ок,объясни пожалуйста зачем нужна строчка k:=k+1?

А,всё до меня дошло,типо k-колво чётных,изначально оно =0, если выполняется это условие while x<>0 do beginif x mod 2 = 0 then к к добавляется 1?

Умничка

var k,x:integer;beginreadln(x);k:=0;while x<>0 do beginif x mod 2 = 0 thenk:=k+1;readln(x);end;write(k);readlnend.