У скольких натуральных чисел от 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 lt;gt; 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.