Переведите 16 ричные числа в 8 ричные числа: 149 14b 178 17c 15a​

var i: integer;

begin

for i: =1 to 1000 do

if (i mod 3=0) or (i mod 7=0) then write(i);

end.

100*1000000/8=12500000 байт в секунду

за тридевять земель или к чёрту на кулички

трех зайцев по углам, двоих вдоль стен