{ File: pari.pas } { Scopo: ciclo for con limite letto da tastiera } program PrimiNpari; { Stampa i primi "quanti" numeri pari, con "quanti" letto da tastiera. } var i : integer; { indice del ciclo } quanti : integer; { valore letto da tastiera } begin write('Quanti numeri pari vuoi stampare ? '); readln(quanti); for i := 1 to quanti do write(2*i:4); writeln; writeln('Fine') end. { PrimiNpari }