program etoiles;
var e : string;
    i,n: integer;
begin
  write('Entrez le nombre de lignes: ');
  readln(n);
  e:='*';
    for i:= 1 to n do
      begin
       writeln(e);
       e:= e+'*';
      end;

end.