{ File: pari2.pas } { Scopo: ciclo for con limiti letti da tastiera } program PariTraDueLimiti; { Legge due interi n ed m e stampa tutti i numeri pari compresi tra n ed m. } var n, m : integer; { limite inferiore e superiore } i : integer; { indice del ciclo } begin write('Limite inferiore ? '); readln(n); write('Limite superiore ? '); readln(m); writeln('Numeri pari compresi tra ', n, ' ed ', m, ':'); for i := n to m do if not odd(i) then write(i:4); writeln end. { PariTraDueLimiti }