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