[Линда Кайе]

#post-id: 2930-09-53
#original-date: 3.08.2008 Sun
#original-time: 9:53 AM
#original-day:  2930
#original-host: WinXP Prof SP2 (Build 2600)

Вот так я развлекаюсь ^^

Program Byaka&#59;
Uses CRT&#59;
Var Arg: Integer&#59; { Use for input answer }
    TMP: Integer&#59; { Invalid answer count }
Begin
  ClrScr&#59;
  
  Arg := 1&#59;
  TMP := 0&#59;
  
  While Arg <> 0 Do Begin
    Write('Enter 2x2 result (or 0 to exit): ')&#59;
    ReadLn(Arg)&#59;
    Write('Your answer is: ')&#59;
    Write(Arg)&#59;
    Write(' - ')&#59;
    
    If Arg = 4 Then Begin
      WriteLn('Correct! ^_^')&#59;
      TMP := 0&#59;
    End Else Begin
      WriteLn('Wrong! >_<')&#59;
      Inc(TMP)&#59;
      If TMP >= 4 Then Begin
        WriteLn('Baka! >_<')&#59;
        TMP := 0&#59;
      End&#59;
    End&#59;
  End&#59;
  WriteLn('Bye-bye ^_^/~~~')&#59;
End.

http://slil.ru/26028859

/* Оказывается, не забыла я всё ещё Паскаль... */