Нужно составить программу для решения следующей : вводятся 234 числа. определить, сколько среди них четных чисел.

Var a,s :integer;
begin
  a:=0;
  s:=0;
  repeat
   a:=a+1;
   if a mod 2 = 0 then
   s:=s+1;
  until
  a=234;
  writeln('кол-во четных чисел : ',s)
end.