скажите как это сделать? Эмин составил список дел на завтра. Расположи места в том порядке, в котором Эмин собирается их посетить, если:
На площадь он пойдёт перед тем, как посетить холм, но после школы;магазин и кафе стоят в списке рядом;в кафе Эмин хотел заглянуть перед походом в парк;перед тем, как зайти в магазин, Эмин хотел заглянуть ещё в одно место;на холм он хотел забраться раньше, чем пойти в парк.

2^i = 24

i = 5

ответ. 5 лампочек.

бег - бог - бок - бак - мак - маг -шаг

1)

var

i,k: integer;

a: array [1..14] of integer;

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

a: array [1..14] of integer;

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

program fasf;

var

n,q: integer;

begin

write('введите этаж: ');

readln(n);

q: =n*4;  

writeln('квартиры: ',q,q-1,q-2,q-3);

end.