program stroki; 
var i,j:integer; {Объявляем переменные}
sl:array[1..30] of string[10]; 
st:string; 
c:char; 
begin 
writeln('Vvedite tex:'); 
readln(st); {Ввод текста}
j:=1; 
for i:= 1 to length(st) do {Отделяем слова и считаем их количество}
begin 
if st[i] <> ' ' then sl[j] := sl[j] + st[i]; {Задаем условие на проверку символа «не пробел», 
если символ не пробел-часть текущего слова,
прибавляем его к слову }
if (st[i] = ' ') and (st[i+1] <> ' ') then j := j + 1; 
{Задаем условие на проверку символа «пробел» , 
если символ- пробел и следующий не пробел ,
то начинается новое слово, увеличим счетчик слов} 
end; 
for i:= 1 to j do {пройдемся по всем словам и поменяем последнюю и первую букву местами}
begin 
c := sl[i][1]; 
sl[i][1] := sl[i][length(sl[i])]; 
sl[i][length(sl[i])] := c; 
end; 
for i := 1 to j-1 do {выведем слова отличные от последней буквы}
if sl[i] <> sl[j] then write(sl[i] + ' '); 
end.

cHJvZ3JhbSBzdHJva2k7IAp2YXIgaSxqOmludGVnZXI7IHvQntCx0YrRj9Cy0LvRj9C10Lwg0L/QtdGA0LXQvNC10L3QvdGL0LV9CnNsOmFycmF5WzEuLjMwXSBvZiBzdHJpbmdbMTBdOyAKc3Q6c3RyaW5nOyAKYzpjaGFyOyAKYmVnaW4gCndyaXRlbG4oJ1Z2ZWRpdGUgdGV4OicpOyAKcmVhZGxuKHN0KTsge9CS0LLQvtC0INGC0LXQutGB0YLQsH0Kajo9MTsgCmZvciBpOj0gMSB0byBsZW5ndGgoc3QpIGRvIHvQntGC0LTQtdC70Y/QtdC8INGB0LvQvtCy0LAg0Lgg0YHRh9C40YLQsNC10Lwg0LjRhSDQutC+0LvQuNGH0LXRgdGC0LLQvn0KYmVnaW4gCmlmIHN0W2ldIDw+ICcgJyB0aGVuIHNsW2pdIDo9IHNsW2pdICsgc3RbaV07IHvQl9Cw0LTQsNC10Lwg0YPRgdC70L7QstC40LUg0L3QsCDQv9GA0L7QstC10YDQutGDINGB0LjQvNCy0L7Qu9CwIMKr0L3QtSDQv9GA0L7QsdC10LvCuywgCtC10YHQu9C4INGB0LjQvNCy0L7QuyDQvdC1INC/0YDQvtCx0LXQuy3Rh9Cw0YHRgtGMINGC0LXQutGD0YnQtdCz0L4g0YHQu9C+0LLQsCwK0L/RgNC40LHQsNCy0LvRj9C10Lwg0LXQs9C+INC6INGB0LvQvtCy0YMgfQppZiAoc3RbaV0gPSAnICcpIGFuZCAoc3RbaSsxXSA8PiAnICcpIHRoZW4gaiA6PSBqICsgMTsgCnvQl9Cw0LTQsNC10Lwg0YPRgdC70L7QstC40LUg0L3QsCDQv9GA0L7QstC10YDQutGDINGB0LjQvNCy0L7Qu9CwIMKr0L/RgNC+0LHQtdC7wrsgLCAK0LXRgdC70Lgg0YHQuNC80LLQvtC7LSDQv9GA0L7QsdC10Lsg0Lgg0YHQu9C10LTRg9GO0YnQuNC5INC90LUg0L/RgNC+0LHQtdC7ICwK0YLQviDQvdCw0YfQuNC90LDQtdGC0YHRjyDQvdC+0LLQvtC1INGB0LvQvtCy0L4sINGD0LLQtdC70LjRh9C40Lwg0YHRh9C10YLRh9C40Log0YHQu9C+0LJ9IAplbmQ7IApmb3IgaTo9IDEgdG8gaiBkbyB70L/RgNC+0LnQtNC10LzRgdGPINC/0L4g0LLRgdC10Lwg0YHQu9C+0LLQsNC8INC4INC/0L7QvNC10L3Rj9C10Lwg0L/QvtGB0LvQtdC00L3RjtGOINC4INC/0LXRgNCy0YPRjiDQsdGD0LrQstGDINC80LXRgdGC0LDQvNC4fQpiZWdpbiAKYyA6PSBzbFtpXVsxXTsgCnNsW2ldWzFdIDo9IHNsW2ldW2xlbmd0aChzbFtpXSldOyAKc2xbaV1bbGVuZ3RoKHNsW2ldKV0gOj0gYzsgCmVuZDsgCmZvciBpIDo9IDEgdG8gai0xIGRvIHvQstGL0LLQtdC00LXQvCDRgdC70L7QstCwINC+0YLQu9C40YfQvdGL0LUg0L7RgiDQv9C+0YHQu9C10LTQvdC10Lkg0LHRg9C60LLRi30KaWYgc2xbaV0gPD4gc2xbal0gdGhlbiB3cml0ZShzbFtpXSArICcgJyk7IAplbmQu

cGFzY2FsIEMrKyA=

pascal C++