Program fdfd;
Var f, t: Text;
s,st:String;
n:Byte;
Begin
Writeln('Vvedite kol sim dlya sdviga');
Write('n='); Readln(n);
Assign(f, 'c:\work\test1.txt');
Assign(t, 'c:\work\test2.txt');
Reset(f);
ReWrite(t);
While Not Eof(f) Do Begin
Readln(f,s);
st:=Copy(s, Length(s)-n+1,n)+ Copy(s,1,Length(s)-n);
Writeln(t,st);
End;
Close(f);
Close(t);
End.