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