program Project2;
var
a,s1,s2:string;
i:integer;
begin
s1:='';
s2:='';
i:=1;
writeln ('Enter string');
readln (a);

//Удаляем все пробелы в начале строки
while a[1]=' ' do
delete(a,1,1);
//Начиная c первой буквы в строке а просматриваются все символы, пока не встретится пробел.
//Если символ не пробел, то он прибавляется к строке s1. Если пробел - то со строкой s1 больше //ничего не происходит - она и есть первое слово в строке...
while a[i]<>' ' do
begin
s1:=s1+a[i];
i:=i+1;
end;
//Далее просматриваем все символы в строке а с конца и до пробела. После выхода из цикла
//значение переменной i - номер последнего пробела в строке - т.е. № символа + 1, с которого //начинается последнее слово...
i:=length(a);
while a[i]<>' ' do
begin
i:=i-1;
end;

//Потом символы строки а начиная со значения i+1 и до конца строки записываются в строку s2/
i:=i+1;
while (a[i]<>' ')and (i<=length(a)) do
begin
s2:=s2+a[i];
i:=i+1;
end;

//Из строки а удаляем: от конца столько символов, какова длина посл. слова (строка s2) начиная с символа "длина строки а - длина строки s2", а от начала столько символов, какова длина первого слова (строки s2) начиная с символа №1
delete(a,length(a)-length(s2),length(s2)+1);
delete(a,1,length(s1)+1);
//Вывод на печать сначала последнего слова (s2), потом остатка строки а - т.е оставшиеся слова, //потом первое слово (s1)
writeln (s2,' ',a,' ',s1);
end.

program Project2;
var
a,s1,s2:string;
i:integer;
procedure cikl;
begin

while (a[i]<>' ')and (i<=length(a)) do
begin
s2:=s2+a[i];
i:=i+1;
end;
end;
begin
s1:='';
s2:='';
i:=1;
writeln ('Enter string');
readln (a);

while a[1]=' ' do
delete(a,1,1);
while a[i]<>' ' do
begin
s1:=s1+a[i];
i:=i+1;
end;
i:=length(a);
while a[i]<>' ' do
begin
i:=i-1;
end;
i:=i+1;
Cikl;
delete(a,length(a)-length(s2),length(s2)+1);
delete(a,1,length(s1)+1);
writeln (s2,' ',a,' ',s1);
end.