Program bintang segitiga bintang

Ni sourcecodenya :

program square;
uses wincrt;
var                                                    
N ,i,j : integer;

begin
writeln('*************************************');
writeln('* Program segitiga bintang membesar *');
writeln('*************************************');

write ('Masukkan angka : '); readln (n);
writeln;
writeln('Hasilnya : ');

for i:= 1 to N do
begin
     for j := 1 to i do
     begin
     write('*');
     end;
     writeln;
end;



end.

Ni gambar running programnya :