А что соединить? Ничего нет!
Так это отрывок из его произведения "Левиафан", переведенное из кодировки Кириллица Windows в KOI8-R.
ИЗИ
4 Мбайта = 4*1024 Кбайт = 4*1024*1024 байт = 4*1024*1024*8 бит
Память для одной точки = 4*1024*1024*8 / (2048*1024) = 16 бит
N = 2^16 = 65536
Program n1;
var n, k, i, c : integer; a:array[0..35] of integer;
begin
read(N);
if (N>=1)and(N<=35) then c:=n
else
begin
writeln('error');
read(N);
end;
for i:=1 to c do
begin
read(a[i]);
if A[i]>0 then k:=k+1;
end;
writeln(k);
end.
Как то так
программа была скопирована из компилятора и там работала по условию