Вычислить сумму целых чисел кратных 4 в интервале от 0 до 200

Program main;
var s,i:integer;
begin 
 for i:=0 to 200 do   
  if i mod 4=0 then     
   s:=s+i; 
writeln('Сумма чисел кратных 4 - ', s);
readln;
end.