Сколько сдвигов надо произвести, чтобы число умножить на 8?

австрия - вена

бельгия - брюссель

болгария - софия

венгрия - будапешт

испания - мадрид

пролететь-расстояниепроехать на лифте-номер этажаспрыгнуть-высота,скоростьпоесть-количествоповернуть-время,напровление

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.

решение на