Нужно составить программу для решения следующей задачи: Вводятся 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.