Вычислить длину двоичного кода текста.Текст состоит из 40 строк в строке 60 символов​

Під час пошуку матеріалу в інтернеті людина наражається на небезпеку.
Тому,що вона не провіряє чи захищена конфіденсійність акаунту(тобто споживача ,який користується сайто і іншими справами в інтернеті).
 

Program pr_1;
a:array [1..n] of real;
n, i:integer;
begin
readln(n)
for i := 1 to n do
begin
a[i] := readln()
if a[i] <0 then a[i] := a[i] - 5;
else a[i] := i;
end;
writeln(a);
end.

Я не знаю раьлисчоджтсро

А сколько строк?
а то не решить