Var i,n,sum:integer;
begin
sum:=0;
write ('N = ');
readln (n);
for i:=1 to n do sum:=sum+i;
writeln ('Summa; ',sum);
end.
Количество символов в тексте k=I/i, где I- объем текста, i- количество бит на 1 символ.
i=㏒₂N, где N- количество символов в алфавите.
i=㏒₂64 = 6 бит
k=8190/6= 1365 символов
<span>Linux конечно же )) Надо расширять свой кругозор )</span>