{ PARNE.PAS                 Copyright (c) TrSek alias Zdeno Sekerak }
{ Vytvorte program ktory nacita dve cele cisla a,b (a<b), a vypise  }
{ vsetky parne cisla z intervalu.                                   }
{                                                                   }
{ Datum:23.05.2004                             http://www.trsek.com }
 
program cele_cisla_parne;
var a,b:integer;
    i:integer;
 
begin
  WriteLn('Vypisem vsetky parne cisla z intervalu.');
  Write('Zadaj cele cislo a=');
  ReadLn(a);
 
  Write('Zadaj cele cislo b=');
  ReadLn(b);
 
  WriteLn('Parne cisla z intervalu su:');
  for i:=a to b do begin
     if( round(i/2) = i/2 ) then
        WriteLn(i);
  end;
 
  WriteLn('Koniec');
  ReadLn;
end.