Дано слово из 12 букв. Поменять местами его трети следующим образом: первую треть слова разместить на месте третьей, вторую треть на месте первой, третью треть на месте второй.

program buldog78;var s,s1,s2,s3:string;    i,h:integer;beginwrite('S=');read(s);h:=length(s) div 3;for i:=1 to h dos1:=s1+s[i];for i:=h+1 to h*2 dos2:=s2+s[i];for i:=h*2+1 to h*3 dos3:=s3+s[i];writeln('S=',s2,s3,s1);end.