uses crt;
var s,s1,s2:string;
c:char;
i:byte;
begin
clrscr;
writeln('Исходный текст:');
readln(s);
s:=s+' ';{добавим пробел в конец}
s1:='';{}
while pos(' ',s)>0 do{пока есть пробел}
begin
s2:=copy(s,1,pos(' ',s)-1);{берем первое слово}
for i:=1 to length(s2)div 2 do{переворачиваем}
begin
c:=s2[i];
s2[i]:=s2[length(s2)-i+1];
s2[length(s2)-i+1]:=c;
end;
s1:=s1+s2+' ';{пишем в новую строку через пробел}
delete(s,1,pos(' ',s));{удаляем из первой строки}
end;
writeln('Зашифрованный текст:');
write(s1);
readln
end.