program wordtr1;
var s:string;
i,j:integer;
begin
write('enter a string:');
readln(s);
writeln('word triangle:');
for i:=1 to length(s) do
begin
for j:=1 to length(s)-i do
write(' ');
for j:=i downto 1 do
write(s[length(s)-j+1]);
writeln
end
end.