{ File: rettang1.pas }

{ Scopo: primo esempio di uso di procedure
         (senza variabili locali e senza parametri) }

program StampaRettangolo;
{ Stampa un rettangolo di asterischi.
  In questa versione l'altezza puo` essere scelta ma la larghezza e` fissa.
}

var
  altezza : integer;    { altezza del rettangolo }
  i       : integer;    { indice del ciclo che scandisce le righe }


  procedure StampaRiga;
  { Stampa una riga di '*' di dimensione fissata. }
  begin
    writeln('**********')       { 10 '*' }
  end; { StampaRiga }


begin { StampaRettangolo }
  write('Altezza rettangolo ? ');
  readln(altezza);
  for i := 1 to altezza do
    StampaRiga
end. { StampaRettangolo }