У скольких естественных чисел от 1 до 2 в степени N,

Составим цикл нахождения количества чисел для языке программирования Pascal
var i,i2,sum,ans:integer;
s:string;
begin
for i:=1 to 1024 do
begin
sum:=0
s:=IntToStr(i);
for i2:=1 to length(s) do
sum:=sum+StrToInt(s[i2]);
if sum mod 4 =0 then
inc(ans);
end;
writeln(ans);
end.