Program Segitiga Siku Pada Pascal

Soal

Buatlah program dengan output seperti dibawah ini :

*
**
***
****
***** 

Listing Program 

program segitigabintang;
uses crt;
var
 i,j,n:integer;
begin
clrscr;
 write('masukkan nilai :');readln(n);
 for i:=1 to n do
  begin
   for j:=1 to i do
    begin
     write('* ');
    end;
  writeln;
  end;
 readln;
end. 

Output Program