Program Pascal : Pola Bintang

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