DBMS_Assignment_9

DECLARE
a int := 5;
s int := 1;

BEGIN
while(a>1)
LOOP
s:=s*a;
a:=a-1;
END LOOP;
dbms_output.put_line('fact  '|| s);
END;




a number :=8;
c number :=0;
begin
for i in 2..5
loop
if mod(a,i)=0
then
c:=c+1;
end if;
end loop;
if c=1
then
dbms_output.put_line('prime number');
else
dbms_output.put_line('Not a prime number');
end if;
end;