lets STUDY

program pp;
uses wincrt;
var  n,i,j :integer;
begin
readln (n);
for i:=n downto 1 do
begin
for j:=1 to n do
begin
if (j<i) then write (' ') else
write ('*');
end;
writeln;
end;
end.