cuenta pares

declare
contador integer := 0;
x integer := 1;
begin
while x <= 50
loop
if mod(x,2) = 0 then
contador := contador +1;
end if
x := x+1;
end loop;
dbms_output.put_line('Total numeros pares es: ' || contador);
end