{ File: pitagor2.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 con riga e colonna di intestazione. }

const
  Nmax =  15;

var 
  riga, colonna : 1..Nmax;
  i             : integer;    { indice usato per la stampa dei '-' }

begin
  { stampa della riga di intestazione }
  write(' ':5);
  for colonna := 1 to Nmax do
    write(colonna:4);
  writeln;
  for i := 1 to 5 + Nmax * 4 do
    write('-');
  writeln;

  for riga := 1 to Nmax do
  begin
    write(riga:2, ' | ');
    for colonna := 1 to Nmax do
      write(riga * colonna : 4);
    writeln
  end
end. { TavolaPitagorica }