Дана непустая последовательность положительный целых чисел, за которой следует 0.найти сумму всех четных чисел этой последовательности записать, как программу в паскале

Var
 x,sum:integer;
 
begin
 repeat
  readln(x);
  if x mod 2 = 0 then
   sum:=sum+x;
 until x=0;
 writeln(sum);
end.