Ну 20 строк и 5 столбцов но я не уверен на 100%
Количество цветов = 2^12 = 4096
Var i,j,s,n:integer;
begin
readln(n);
for i := 1 to n-1 do
begin
s:=0;
for j := 1 to (i div 2) do
if i mod j=0 then s:=s+j;
if s=i then write(i,' ');
end;
end.
Вычтем из 10100 00001 столбиком по правилам сложения в двоичной системе. Получим 10011
Program qq;
var s:string;
x,i:integer;
begin
writeln('Введите предложение:');
readln(s);
x:=length(s) div 3;
for i:=1 to x do
s[i*3]:='а';
writeln(s);
<span>end.</span>