Program fgg;
var
i, n: Integer;
s: Real;
begin
Write('Введите n: ');
ReadLn(n);
for i := 1 to n do
s := s + 1 / i;
WriteLn('s=', s);
end.
import random
m=[]
d=int(input())
for a in range(d):
m.append(random.randint(-23,34))
print(m)
Во фразе 39 символов (включая пробелы и знаки препинания)
39*16 = 624 бит