Приходить на работу нетрезвым
не красть еду у коллег
грубо и вызывающе себя вести неприемлемо
нельзя зависать в соц сетях
играть в комп игры
нельзя нецензурно выражаться
не уместны личные беседы по телефону
надо выглядеть чисто и опрятно
здоровайтесь не опаздывайте
помнить о времени,оно у всех ограничено
и конечно не провоцировать ссоры в коллективе
как то так)))
Var n, k, i: integer;
begin k := 1; for i := 1 to 4 do begin read(n); if (n >= 3) and (n <= 9) then k := k * n; end; if k = 1 then writeln(-1) else writeln(k);end.