program q;
var s,t:string;
i:integer;
BEGIN writeln('Ââåäèòå ÷èñëî');
readln(s);
writeln('íå âñåãäà ÷èñëà áóäóò òðåõçíà÷íûå') ;
writeln('íå âñåãäà ÷èñëà áóäóò ðàçëè÷íûìè') ;
write(s[1]);
write(s[3]);
writeln(s[2]);
write(s[2]);
write(s[1]);
writeln(s[3]);
write(s[2]);
write(s[3]);
writeln(s[1]);
write(s[3]);
write(s[1]);
writeln(s[2]);
write(s[3]);
write(s[2]);
writeln(s[1]);
readln;
END.