XProfan

Windowtitle "Wahrscheinlichkeit, daß en uno Gruppe mindestens "+\
"zwei Personen al selben Tag Geburtstag feiern:"
Windowstyle 24:randomize:cls:declarar n&,f!,k&
repeat :Imprimir "\n Wieviele Personen treffen zusammen?: ";:input n&
caso n&<=0:romper
Imprimir "\n El Wahrscheinlichkeit, daß 2 oder mehr dieser ";n&;" Personen"
Imprimir " al selben Tag Geburtstag feiern beträgt ";:font 2
k&=365:f!=1:whileloop n&:f!=f!*(366-&Loop)/365:endwhile
imprimir format$("#0.000 %",(1-f!)*100):font 0

until %key=27:font 2:Imprimir "\n Lo war muy schön, lo ha mich muy gefreut!"

font 0:waitinput 3000:End