SET serveroutput ON
 DECLARE
 i NUMBER;
 val NUMBER;
 par VARCHAR2(50);
 msg VARCHAR2(50);
 BEGIN
 FOR i IN 1..100 LOOP
   IF (MOD(i,2) = 0) THEN
    val:=1;
   ELSIF (i=1) THEN
    val := 0;
   ELSE
    val := 0;
   END IF;
   IF (val=1) THEN
    par:='par';
   ELSE
    par:='ímpar';
   END IF;
   INSERT INTO  temp (col1,col2,message) VALUES (i,i*100,'Col1 é '||par);
   END LOOP;

 END;