Program exemplu;var a,b:integer;beginwriteln('Dati numerele:');readln(a,b);if a mod 2=0 then writeln('Numarul ',a,' este par') else writeln('Numarul ',a,' nu este par');if b mod 2=0 then writeln('Numarul ',b,' este par') else writeln('Numarul ',b,' nu este par');readln;end.