Ключевое слово "array" написано с ошибкой
program n_1;
var i: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do a[i]:=random(50);
for i:=1 to 10 do write (a[i], ' ');
end.
Длина строки "Я памятник воздвиг нерукотворный." = 33 символа, учитывая все пробелы и точку. Если размер символа равен 2 байтам, то в итоге получим, что размер строки равен 66 байт, что равно 528 битам (66 * 8 = 528). Ни один из предложенных условием задачи вариантов не является верным, либо Вы совершили ошибку при переписывании условия.