var
i:integer;
s,str,newWordOne,newWordTwo:string;
begin
writeln('введите слово');
readln(s);
writeln;
for i:=1 to length(s) do begin
newWordOne:=newWordOne+s[i];
writeln(s[i]);
end;
writeln;
writeln(newWordOne);
writeln;
for i:=length(s) downto 1 do begin
newWordTwo:=newWordTwo+s[i];
writeln(s[i]);
end;
writeln;
writeln(newWordTwo);
writeln;
str:=s[1]+s[length(s)];
writeln(str);
readln;
end.
