Для записи текста, каждая страница которого состоит из 22 строк по 52 символов, использовался 512-символьный алфавит. какой объем информации в кбайтах содержат 12 страниц текста?

512 = 2^9. То есть 1 символ = 9 бит.
22*52*9*12*8/1024 = 965,25 Кб

Program pm;
uses crt;
var X:array[1..1000] of integer; k,a,b,i:integer;
begin
clrscr;
write('Введите кол-во элементов массива: ');
read(k);
writeln;
write('Введите диапазон значений заполнения(A-начальное значение, B-конечное): ');
repeat
read(a,b);
until a<=b;
writeln;
randomize;
for i:=1 to k do X[i]:=random(b-a+1)+a;
writeln('Ваш массив:');
for i:=1 to k do write(X[i]:5);
writeln;
write('Введите элемент поиска: ');
read(b);
a:=0;
for i:=1 to k do if X[i]=b then a:=i;
if a>0 then writeln('Элемент со значением ',b,' имеет индекс ',a)
else writeln('Элемента не существует!');
readkey;
end.

Program funt_kg;
var a: real;
i: integer;
begin
for i:=1 to 10 do
begin
a:=i*0.40951;
write (i,' фунт =',a, 'кг');
writeln;
end;
end.

program arschin_metr;
var a: real;
i: integer;
begin
for i:=1 to 10 do
begin
a:=i*0.7112;
write (i,' аршин =',a, 'м');
writeln;
end;
end.

program zolotnik_gram;
var a: real;
i: integer;
begin
for i:=1 to 10 do
begin
a:=i*4.2657;
write (i,' золотник =',a, 'грамм');
writeln;
end;
end.

 program duym_mm;
var a: real;
i: integer;
begin
for i:=1 to 10 do
begin
a:=i*25.3995;
write (i,' дюйм =',a, 'мм');
writeln;
end;
end.