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