Пользователь указывает высоту и ширину бОльшего прямоугольника, а так же высоту и ширину меньшего прямоугольника.Нужно узнать сколько маленьких прямоугольников можно вписать в большой.

1) 

var a:array [1..100] of integer;

n,i:integer;

begin

for i:=10 to 99 do begin

a[i]:=i;

if (a[i] mod n=0) then writeln(a[i]);

end;

end.

 2)

var a:array [1..100] of integer;

n,k,i,x,y,z: integer;

begin

readln(n,k);

for i:=n to k do begin

a[i]:=i;

x:=a[i] mod 10;

y:=a[i] div 10;

z:=y mod 10;

y:=y div 10;

if (x=y) or (x=z) or (y=z) then writeln(a[i]);

end;

end.

 3)

 var a,n,an,na: integer;

begin

readln(a,n);

if (a>0) and (b>0) then begin

an:=a*10+n;

na:=n*10+a else writeln('Введены неверные числа!');

end;

end.

Очень нечётко сформулировано!

Объём информации о чём? Если о количестве сделанных ходов, то это 15=Fh, то есть достаточно 4бит(полубайта), но, подозреваю, что объём совсем не этой информации требуется найти. Уточни, какой.

Иначе "пойди туда, не знаю, куда; принеси то, не знаю, что". Не в сказке ж живём.

Да, ещё раз почитал, может речь идет о последовательности ходов и её объёме?

В этом случае всё просто - объём равен 15*n, где n-количество байт на один ход.

Ячейку можно кодировать двумя разными

1. последовательно их перенумеровав. В этом случае макс. номер будет 24(если нумеровать с 0). Так как     2^4  <24< 2^5, то для такой нумерации потребуется 5 бит.

2. Указавая строку,столбец, каждая из которых находится в интервале (1,5), ну или (0,4)

на что потребуется 3 бита, а на пару 6 бит.

Таким образом экономней.

И запись 15 ходов можно поместить в 15*5=75бит= 10байт 

Или всё же не это имелось в виду?