Задача на массивы

[KirkHammett]

Задача:
вывести на экран все четырехзначные числа, у которых первая цифра равна кубу четвертой цифры


P.S. в инфе почти не шарю)

[rubius2008]

for i:=1000 to 9999 do if i div 1000 = sqr(i mod 10)*(i mod 10) then writeln(i);

[KirkHammett]

а если не сложно, можешь всю прогу написать?

[MoBLer]

и что тут сложного

var
i:integer;
begin
for i:=1000 to 9999 do if i div 1000 = sqr(i mod 10)*(i mod 10) then writeln(i);
readln
end.

[KirkHammett]

Спасибо большое