Var n: integer;
begin
readln(n);
n:=n mod 7;
if n=0 then writeln(7) else writeln(n);
readln;
<span>end.</span>
Форма, роман, кит, кот, рак, формат, ток, комар, мина, кран, нора, ром, мак, камин, рот))
адрес клада :тихии океан,остров4 пальм,восточная пальма ,клад.
Вот смотри, из большего нужно вычесть меньшего , т.е 1)114 - 66 = 48
Далее 2)66 - 48=18;3)48-18=30;4)30-18=12;5)18-12=6;6)12-6=6
Итого 6 шагов.