Задачу можно решать различными способами. Можно рассуждениями-вычислениями, а можно просто написать программу, в которой вычисляется нужное значение:
var i,a,s,k:integer;
begin
k:=0;
for i:=1 to 1024 do
begin
a:=i; s:=0;
while a<>0 do
begin s:=s+a mod 10; a:=a div 10; end;
if s mod 4 = 0 then k:=k+1;
end;
writeln('k = ',k);
end.
Результат:
k = 253