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 i do
write(s[j]);
writeln
end
end.