While Loop

DECLARE
i NUMBER(5);
hasil NUMBER(5);
x NUMBER(3);

BEGIN
x:=&angka;
i:=1;
WHILE i <= x LOOP
DBMS_OUTPUT.PUT_LINE(i|| hasil );
i := i + 3;
END LOOP;
END;
/