Помогите написать программу в паскале!! ! Срочно!

Question

Дано слово с количеством букв не менее 6-ти (слово может быть введено любое) . Переставить в слове 3 первые и 3 последние буквы, сохранив порядок следования букв в этих тройках

Иван · Accepted Answer

var 
s: string[6]; 
a, b: string[3]; 
begin 
write('слово 6 букв '); 
readln(s); a:=' '; b:=' '; 
a:=s[1]+s[2]+s[3]; 
 b:=s[4]+s[5]+s[6]; 
 s:=b+a; 
 writeln(s); 
 end.

Юля Пискарева · Answer

var s:string; c:char; i,k:integer; 
begin 
readln(s); k:=length(s)-3; 
for i:=1 to 3 do begin c:=s[ i]; s[ i]:=s[ i+k]; s[ i+k]:=c end; 
writeln(s); readln 
end.