var nahrdelnik: string; K, i, j: integer; {jednoduché pomocné premenné} c: char; begin ReadLn(nahrdelnik); {načítame vstup} ReadLn(K); {... otočíme nahrdelnik o K ...} WriteLn(nahrdelnik); {a vypíšeme výsledok} end.