{ 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 }