Text Modda Üçgen Çizimi

program dik_yildizlar;
uses wincrt;
var
i,j,n:integer;

begin
write('ucgen satir sayisini gir : ');
readln(n);
clrscr;
for i:=1 to n do begin
for j:=1 to i do begin
write('* ');
end;
writeln;
end;
end.