create or replace function prwpod (ile_rzutow in number) return number as
prawda number :=0;
liczba1 number :=0;
liczba2 number :=0;
liczba3 number :=0;

begin

for licznik in 1..ile_rzutow loop
--losowanie
liczba1 := trunc(DBMS_RANDOM.VALUE(1, 7));
liczba2 := trunc(DBMS_RANDOM.VALUE(1, 7));
liczba3 := trunc(DBMS_RANDOM.VALUE(1, 7));

if liczba1 <> liczba2 then
if liczba1 <> liczba3 then
if liczba2 <>liczba3 then
if liczba1 <> 6 then

prawda := prawda + 1;

end if;
end if;
end if;
end if;

end loop;

return prawda/ile_rzutow;

end;

declare
resultat number;

begin
resultat := prwpod(1000);
dbms_output.put_line('Prawdopodobienstwo jest rowne '||resultat);
end;