512*256 = 131072 пикселя (2^9 * 2^8 = 2^17 пикселей)
Var i, n, sum: integer;
begin
readln(n);
for i:=1 to n do if i mod 2=0 then sum:=sum+i;
writeln(sum);
end.
3072 байт<span> равно </span>3 килобайт
3072 килобайт<span> равно </span>3 145 728 байт<span> </span>
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
5.To(25).Println
end.