При использовании 65536 цветов для хранения одного пикселя требуется log(2)65536 = 16 бит. Объем памяти = 56*56*16 бит = 50176 бит
1. var s, i: integer;
begin
for i := 1 to 100 do
s := s + i;
writeln('s=', s);
end.
2. var i, r: integer;
begin
writeln('Таблица умножения на 3');
for i := 1 to 10 do
begin
r := i * 3;
writeln(i, ' * 3 = ', r);
end;
readln;
end.
Решение - в прилагаемом файле.