var p1,p2,n:integer; z:char;
begin
label1.caption:='';
z:='*';
n:=strtoint(edit1.Text);
for p1:=1 to n do
  begin
  if p1>1 then label1.caption:=label1.caption + #13;
    for p2:=1 to p1 do
      begin
      label1.caption:=label1.caption +' '+z;
      end;
  end;