DECLARE
VP$_SKOL VARCHAR2(25) := 'GELADA';
VP$_BRAHMA VARCHAR2(25) := 'GELADA';
VP$_ITAIPAVA VARCHAR2(25) := 'QUENTE';
VP$USU VARCHAR2(50) := 'Roberto Fernandes Sobrinho';
VP$QUERO_BEBER NUMBER := 1247;
BEGIN
IF VP$_SKOL = 'GELADA' THEN
FOR I IN 1 .. VP$QUERO_BEBER LOOP
dbms_output.put_line(VP$USU||' BEBEU '||I||' SKOL '||VP$_SKOL||'.');
END LOOP;
ELSIF VP$_BRAHMA = 'GELADA' THEN
FOR I IN 1 .. VP$QUERO_BEBER LOOP
dbms_output.put_line(VP$USU||' BEBEU '||I||' BRAHMA '||VP$_SKOL||'.');
END LOOP;
ELSIF VP$_ITAIPAVA = 'GELADA' THEN
FOR I IN 1 .. VP$QUERO_BEBER LOOP
dbms_output.put_line(VP$USU||' BEBEU '||I||' ITAIPAVA '||VP$_SKOL||'.');
END LOOP;
ELSE
FOR I IN 1 .. VP$QUERO_BEBER/2 LOOP
dbms_output.put_line(VP$USU||' BEBEU '||I||' COCA COLA '||VP$_SKOL||'.');
END LOOP;
END IF;
END;
