XProfan

Windowtitle "Wahrscheinlichkeit, that in a group at least "+\
"zwei Personen on the same day birthday celebrate:"
Windowstyle 24:randomize:cls:declare n&,f!,k&
repeat :Print "\n Wieviele Personen meet together?: ";:input n&
case n&<=0:break
Print "\n The probability, that 2 or more this ";n&;" Personen"
Print " on the same day birthday celebrate totals ";:font 2
k&=365:f!=1:whileloop n&:f!=f!*(366-&Loop)/365:endwhile
print stature$("#0.000 %",(1-f!)*100):font 0

until %key=27:font 2:Print "\n it was very beautiful, it has me very gefreut!"

font 0:waitinput 3000:End