XProfan

Windowtitle "Wahrscheinlichkeit, qui dans einer Gruppe mindestens "+\
"zwei Personen am selben journée anniversaire fêter:"
Windowstyle 24:randomize:cls:declare n&,f!,k&
repeat :Imprimer "\n Wieviele Personen rendez-vous zusammen?: ";:input n&
cas n&<=0:pause
Imprimer "\n qui probabilité, qui 2 ou bien plus cette ";n&;" Personen"
Imprimer " am selben journée anniversaire fêter beträgt ";:font 2
k&=365:f!=1:whileloop n&:f!=f!*(366-&Boucle)/365:endwhile
imprimer format$("#0.000 %",(1-f!)*100):font 0

until %clé=27:font 2:Imprimer "\n Es était très joli, es hat mich très gefreut!"

font 0:waitinput 3000:Fin