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

var ans, tmp, sum, i:integer; // объявляем переменные: ответ, временную переменную, сумму и итераторbeginans:=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.