Program slovo; var A,C:string; {Описание строковой переменной} i:integer; begin read(A); write('Первоначальное слово: ',A); C:=A; {"копирование" значения длинны строки(т. к. оно в дальнейшем быдет изменено)} i:=length(A); {Присвоение переменной i значения длинны строки} A[1]:=A[i]; {Присвоение первому значению значение последнего} A[i]:=C[1]; {Присвоение последнеe значению значение первого} write('Полученное слово: ',A); <span>end.</span>
{конструкция else для того если будут введены отрицательные x y} var x,y:real;begin readln(x,y); if (x*x*x*x*x+y)>0 then writeln(exp(ln(x*x*x*x*x+y)*(1/3))*PI/(1+(exp(ln(2)*y)/x))) else writeln(-exp(ln(abs(x*x*x*x*x+y))*(1/3))*PI/(1+(exp(ln(2)*y)/x))); <span>end.</span>
очень лень писать, дам направление как составлять слова из данного на языке, кстати способ очень глупый, я думаю если начнешь делать сам, то ты меня поймешь
var s,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10:string;
begin
s:='перестройка';
writeln(s[5]+s[6]+s[7]+s[8]+s[9]+s[10]+s[11]); //получится слово стройка