{ File: pitagor1.pas } { Scopo: cicli for annidati (caso in cui il numero di iterazioni del ciclo piu` interno non dipende dall'iterazione del ciclo piu` esterno } program TavolaPitagorica; { Stampa una tavola pitagorica (senza intestazione). } const Nmax = 15; var riga, colonna : 1..Nmax; begin for riga := 1 to Nmax do begin for colonna := 1 to Nmax do write(riga * colonna : 4); writeln end end. { TavolaPitagorica }