У скольких натуральных чисел от 1 до 2 в степени 10 сумма цифр кратна четырем?

var ans, tmp, sum, i:integer; / / объявляем переменные: ответ, временную переменную, сумму и итератор

begin

ans:=0; / /сначала ответ равен нулю

for i:=1 to 2*2*2*2*2*2*2*2*2*2 do / /от единицы до двойки в десятой степени проверяем все числа

begin

sum:=0; / /сумма цифр каждого числа изначально нулевая

tmp:=i; / / записываем число во временную переменную

while (tmp 0) do / / пока не сложили все цифры в ней

begin

sum: = sum + tmp mod 10; / / записываем остаток от ее деления на 10 к сумме

tmp: = tmp div 10; / /делим нацело на 10

end;

if (sum mod 4 = 0) then ans:=ans + 1; / / если сумма кратна четырем, то увеличиваем ответ

end;

writeln (ans); / /выводим ответ

end.