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