640 * 200 = 128 000 пикселей
===== PascalABC.NET =====
begin
foreach var n in Range(100, 999) do
if n mod 81 = 0 then
Print(n)
end.
От одного до четырёх.