Я так понимаю, нужно число страниц найти.
9408 / (log2(256) / 8 * 28 * 48) = 7 страниц.
Var i:integer;
n: array [1..8] of integer;
BEGIN
For i:=1 to 8 do
begin
Writeln('Vvedite element massiva');
Read(n[i]);
end;
Writeln;
For i:=8 downto 1 do
Writeln(n[i]);
Readln;
Readln;
END.