program test;
var i, j: integer;
begin
for i:=1 to 7 do
for j:=i to 7 do write(' ');
for j:=1 to i do write(' *');
writeln
end
end.
program test;
var i, j: integer;
begin
for i:=1 to 7 do
begin
for j:=i to 7 do write(' ');
for j:=1 to i do write(' *');
writeln
end
end.