Les procédures sans paramètres

program P;

var nb, k : integer;

procedure etoiles;
   const n=40;
   var i : integer;

   begin
       for i:=1 to n do
           write('*');
       writeln;
   end;

begin
  writeln('combien de lignes d etoiles voulez-vous tracer ?');
  readln(nb);
  for k:=1 to nb do
      etoiles;
end.