Langage pascal

program SansNom;

var nombreLigne, nombreEtoile, indiceLigne, indiceEtoile:integer;
begin
     write('Nombre de ligne = '); readln(nombreLigne);
     write('Nombre d''etoile = '); readln(nombreEtoile);

     for indiceLigne:=1 to nombreLigne do
     begin
          for indiceEtoile:=1 to nombreEtoile do
              write('*');
          writeln;
     end;

writeln; write('Fin du programme. Appuyer sur Entree'); readln;
end.