Поменять местами первый и последний символ местами.
Решение:
Program meso; var s,s1,sn:string; BEGIN writeln('Введите предложение'); readln(s); s1:=s[1]; Sn:=S[length(s)]; s:= S+1 copy(s,2,length(S)-2+s1); writeln(S); END. Объяснение: Вводим предложение. Переменной S1 присваиваем первый символ предложения. Переменной Sn присваиваем длину предложения. С помощью "s:= S+1 copy(s,2,length(S)-2+s1)" меняем местами символы.