Укажите имена файлов, соответствующие маске: *?май*.р?*​

вроде бы 100*100=10000 бит=1250 байта

var i: integer;

begin

  for i: =1 to 1000 do

      if i mod 2 = 1 then writeln(i*i*i);

end.

на диске и во перативной памяти информация хранится   двоичном формате и

program divisors;

var

n,i: integer;

begin

readln(n);

for i: =n downto 1 do if n mod i = 0 then write(i,' ');

end.