Bantuan buat Tugas Perulangan DDP

ni contoh kodingnya ya...
*
**
***
****
var i,j:integer;
for i:=1 to 4 do
begin
for j:1 to i do
begin
write('*');
delay(100);
end;
writeln();
end;