Prgm
Local z, i, r
ClrIO
rand(99) ® z
For i, 1, 7
Input "Ratezahl: ", r
If r = z
Exit
If r < z Then
Disp string(r)&" ist zu klein"
Else
Disp string(r)&" ist zu groß"
EndIf
EndFor
If r = z and i < 7 Then
Disp "Gewonnen"
Else
Disp "Verloren"
EndIf
EndPrgm
