Вводить с клавиатуры числа и посчитать количество четных чисел до нуля.

Создать программу используя Until и Repeat

А почему k:=-1, а не 0 например?

Спасибо огромнейшее!

Var A,k:integer;Begink:=-1;RepeatRead(A);if A mod 2 = 0 then k:=k+1;Until A=0;WriteLn('k = ',k)End.