SET SERVEROUTPUT ON
ACCEPT elso PROMPT 'Elso szam:'
ACCEPT masodik PROMPT 'Masodik szam:'
DECLARE
  osszeg INTEGER;
  szoveg VARCHAR2(120);
BEGIN
  osszeg := &elso + &masodik;
  IF MOD(osszeg,2) = 0 THEN
    szoveg := 'Az osszeg paros';
  ELSE 
    szoveg := 'Paratlan';
  END IF;
  DBMS_OUTPUT.PUT_LINE(szoveg);
END;