Последовательно вводится n-целых чисел. Найти сумму чётных чисел

var x,n,i,s:integer;beginwrite('Сколько будет чисел: ');readln(n);writeln('Вводите числа по одному:');for i:=1 to n do  begin  readln(x);  if x mod 2=0 then s:=s+x;  end;writeln('S=',s);end.