n=50;
c=0;
for i=1:n
    a=tirage_entier(1,2,3);b=tirage_entier(1,1,2);delta=a^2-4*b;
    if delta<0 then c=c+1;end
end
afficher('f= '+string(c/n))