var

a, b, c, d, e, broj, i, tren : longint;

begin

Read(a,b,c,d);

broj := d + 10*c + 100*b + 1000*a;

e := (a + b + c + d) mod 10;

tren := e + 10*d + 100*c + 1000*b;

i := 1;

While ((tren <> broj) and (i < 1000000000)) do

begin

a := b; b := c; c := d; d := e;

e := (a + b + c + d) mod 10;

tren := e + 10*d + 100*c + 1000*b;

i := i + 1;

end;

if (tren = broj) then WriteLn('Ponavlja se posle ',i,' iteracija.')

else WriteLn('Resenje nije nadjeno!');

end.