Hello! >> "Превед вам, суки рванные".
>да да.
>#define TRUE FALSE //счастливой отладки суки
Ну можно осчастливить:
Function GetAnswer(AnswerCorrect:boolean):boolean;
begin
Randomize;
{ если программа и пользователь думают одинаково, то ... }
Result:=(round(random(100))<=50) and AnswerCorrect;
End;
WBR,Dmitry Beloshistov AKA [-=BDS=-]
