#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

extern int pravil_otvet;//ci?iia, aey caa??aaiiy i?aaeeuii? a?aiia?a? ia ieoaiiy

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
 Form1->Close();
 Form2->Close();
 Form3->Close();
 Form4->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
           Form2->Label5->Caption="?e iaceaa?ou iaiaeaiieo? noia?-eeano?";
           Form2->Label1->Caption="Oii-iiaaeu";
           Form2->Label2->Caption="Oyi-iiaaeu";
           Form2->Label3->Caption="Iii-iiaaeu";
           Form2->Label4->Caption="Eyi-iiaaeu";
           pravil_otvet=1;//i?enai??ii iiia? i?aaeeuii? a?aiia?a?

 Form1->Visible=false;
 Form2->Visible=true;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
Form6->Memo1->Lines->Clear();
Form6->Memo1->Lines->Add("?iy  "+Edit1->Text);
Form6->Memo1->Lines->Add(" I??caeua "+Edit2->Text);
Form6->Memo1->Lines->Add("A?oia: "+Edit3->Text+"    Aaoa: "+DateToStr(Date()));
Form6->Memo1->Lines->Add("Noaou  "+ComboBox1->Text);
//else Form1->Show();
Form5->Show();
}


//---------------------------------------------------------------------------



#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

int variant=0;
int s=0, i=0, pravil_otvet, nomer=0;//s-noia i?aaeeuieo a?aiia?aae, i-aiiii??ia ci?iia, nomer-iiia? iioi?iiai ieoaiiy
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm2::N1Click(TObject *Sender)
{
Form4->Visible=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BitBtn2Click(TObject *Sender)
{
 Form2->Visible=false;
 Form3->Visible=true;
 Form3->Label2->Caption=s;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
 if(RadioButton1->Checked==true)i=1;//ia?aa??y?ii, yea aoea ia?aia a?aiia?au
 if(RadioButton2->Checked==true)i=2;
 if(RadioButton3->Checked==true)i=3;
 if(RadioButton4->Checked==true)i=4;
 if(i==pravil_otvet)s++;//yeui aea?aiee ? i?aaeeuiee ca?aa?ouny, oi ca?euoo?ii noio ia iaeie?eo
 i=0;//iaioeaiiy iio??aii aey ei?aeoiiai i?a?aooieo noie

 RadioButton1->Checked=false;//i?eua?ii iaoeniooo eiiieo
 RadioButton2->Checked=false;
 RadioButton3->Checked=false;
 RadioButton4->Checked=false;
 nomer++;
 vopros();
 Memo1->Lines->Add(variant);

}
//---------------------------------------------------------------------------


void __fastcall TForm2::vopros()
{
 //iiia? ieoaiiy ci?i??ouny c ei?iei iaoeneaiiyi eiiiee

switch(nomer)
{
  case 0:
           Form2->Label5->Caption="Ooi ae??n a a?oiaeyo na?aa aeeeo ca???a?";
           Form2->Label1->Caption="Eieiaie";
           Form2->Label2->Caption="Iaoae?";
           Form2->Label3->Caption="Aaoiai";
           Form2->Label4->Caption="?a?euc Aa?a?i";
           pravil_otvet=2;
                   break;

  case 1:
           Form2->Label5->Caption="?e iaceaaeany aeoy?a ?icaa?aeuia i?ia?aia, iiioey?ia a ieioe? ?iee?";
           Form2->Label1->Caption="AAAAAaeea";
           Form2->Label2->Caption="?EEIIaeea";
           Form2->Label3->Caption="?I?NOaeea";
           Form2->Label4->Caption="A?CEEaeea";
           pravil_otvet=1;
                   break;

  case 2:
           Form2->Label5->Caption="Ai yeiainu ?a?aiaiai caaiiy ii?a aooe i?aanoaaeaiee iieeiaiee? ";
           Form2->Label1->Caption="Aaia?ae-eaeoaiaio";
           Form2->Label2->Caption="Aaia?ae a?i??";
           Form2->Label3->Caption="Iaei?";
           Form2->Label4->Caption="Aaia?ae-iaei?";
           pravil_otvet=4;
                   break;

  case 3:
           Form2->Label5->Caption="?eee eie?? aeoiaeou i?e ci?ooaaii? neiuiai ? ?a?aiiiai?";
           Form2->Label1->Caption="Ei?e?iaaee";
           Form2->Label2->Caption="O?ieaoiaee";
           Form2->Label3->Caption="Cae?iee";
           Form2->Label4->Caption="Aieoaie";
           pravil_otvet=2;
                   break;

  case 4:
           Form2->Label5->Caption="C yeiai i'yna o?aaeo?eii aioo?ouny ia?eiea aey ?aao?ae?a?";
           Form2->Label1->Caption="Aa?ai?ia";
           Form2->Label2->Caption="Naeieia";
           Form2->Label3->Caption="Oaeyoeia";
           Form2->Label4->Caption="Eii?ia";
           pravil_otvet=1;
                   break;

  case 5:
           Form2->Label5->Caption="?eee ia?ia i?eaoiaa oaiaou ?a?aao?";
           Form2->Label1->Caption="Aaia?e";
           Form2->Label2->Caption="?oieie";
           Form2->Label3->Caption="?aoe";
           Form2->Label4->Caption="Iieaaaaie";
           pravil_otvet=1;
                   break;

  case 6:
           Form2->Label5->Caption="Aea?aiiy niieoe yeiai aeaiaioa ? iniiai? i?aai??ii? o?i???";
           Form2->Label1->Caption="Eenei?ia";
           Form2->Label2->Caption="Aoaeaou";
           Form2->Label3->Caption="Acio";
           Form2->Label4->Caption="E?aii?e";
           pravil_otvet=2;
                   break;

  case 7:
           Form2->Label5->Caption="Ooi a?ae?ea oa?iieo? o?uio ea?o a?aoei? c ĞI?eiai? aaieğ A. N. Iooe?ia?";
           Form2->Label1->Caption="Eacaiiaa";
           Form2->Label2->Caption="Eaeeino?i";
           Form2->Label3->Caption="Nai-?a?iai";
           Form2->Label4->Caption="Oiian Aiaai";
           pravil_otvet=3;
                   break;

  case 8:
           Form2->Label5->Caption="O ye?e e?a?i? aoea i?iao?aia ia?oa i?iieneiaa iaooiaa naa?aeiaeia?";
           Form2->Label1->Caption="Eoaaeo";
           Form2->Label2->Caption="??ai";
           Form2->Label3->Caption="??ae";
           Form2->Label4->Caption="Aca?aaea?ai";
           pravil_otvet=4;
                   break;

  case 9:
          Form2->Label5->Caption="Ne?euee i?eaeecii a?anioe?a e?aae - e?ao??";
           Form2->Label1->Caption="2 a?anioee";
           Form2->Label2->Caption="5 a?anioee";
           Form2->Label3->Caption="15 a?anioe?a";
           Form2->Label4->Caption="24 a?anioee";
           pravil_otvet=3;
                   break;

  case 10:
           Form2->Label5->Caption="?ei e?eoaaa nai?o iao??io?a Aieoi? Aeaie?o?";
           Form2->Label1->Caption="?ea'y?ei ?e?ii";
           Form2->Label2->Caption="Eanoi?ei? ";
           Form2->Label3->Caption="Aeoeaiaaiei aoa?eeyi";
           Form2->Label4->Caption="Aiaieai-ii?aeai";
           pravil_otvet=4;
                   break;

  case 11:
           Form2->Label5->Caption="?ea ciaaaiiy, e??i no?eae?a c o?aiie?io, aoiaeou ai neeaao ee?iiai aaiai?noaa?";
           Form2->Label1->Caption="O??noaee";
           Form2->Label2->Caption="Oaeae?niee nione";
           Form2->Label3->Caption="Ee?ia aiiea";
           Form2->Label4->Caption="A?aaionueee neaeii";
           pravil_otvet=3;
                   break;

  case 12:
           Form2->Label5->Caption="?ea ioeoy ?nio??";
           Form2->Label1->Caption="E?aiaaeae";
           Form2->Label2->Caption="Ei?iaaeea";
           Form2->Label3->Caption="Eia?e?ea";
           Form2->Label4->Caption="Oaea-oaea";
           pravil_otvet=2;
                   break;

  case 13:
           Form2->Label5->Caption="A yeiio ?io? ia?iaeany A. N. Iooe?i?";
           Form2->Label1->Caption="1799";
           Form2->Label2->Caption="1803";
           Form2->Label3->Caption="1793";
           Form2->Label4->Caption="1748";
           pravil_otvet=1;
                   break;

  case 14:
           Form2->Label5->Caption="C yeiai ?ieo i?enoa?o?ouny Iiaae?anue? i?ai???";
           Form2->Label1->Caption="C 1977";
           Form2->Label2->Caption="C 1803";
           Form2->Label3->Caption="C 1955";
           Form2->Label4->Caption="C 1901";
           pravil_otvet=4;
                   break;

  case 15:
           Form2->Label5->Caption="?ea ?ineeia, ca eaaaiai?, ?icea?oa? a i?? ia ?aaia Eoiaea?";
           Form2->Label1->Caption="Iio";
           Form2->Label2->Caption="Aea?eea";
           Form2->Label3->Caption="Iaii?iou";
           Form2->Label4->Caption="Oaiu";
           pravil_otvet=3;
                   break;

  case 16:
           Form2->Label5->Caption="Ooi ea?oaaa aoa?aieooaii niai?o Nayoiai Iao?a a ?ei??";
           Form2->Label1->Caption="Eaiia?a aa A?i?? ";
           Form2->Label2->Caption="I?eaeaia?aei";
           Form2->Label3->Caption="?aoaaeu";
           Form2->Label4->Caption="?inn?";
           pravil_otvet=2;
                   break;
  case 17:
           Form2->Label5->Caption="?e? a?eae ooea?ou niao?aeuii iaa?ai? naei??";
           Form2->Label1->Caption="Nii??ee ";
           Form2->Label2->Caption="Ne?i??ee";
           Form2->Label3->Caption="A?e?";
           Form2->Label4->Caption="O??oae?";
           pravil_otvet=4;
                   break;
  case 18:
           Form2->Label5->Caption="Ooi noaa ?aii?iiii na?oo c oooaieo o O?aio?? a 1998 ?io??";
           Form2->Label1->Caption="O?aio?y";
           Form2->Label2->Caption="Oaaeoa??y";
           Form2->Label3->Caption="?oae?y ";
           Form2->Label4->Caption="NOA";
           pravil_otvet=1;
                   break;

     case 19:

           Form2->Label5->Caption="?ea ca?iy ia aeei?enoiao?ouny o oaoooaaii??";
           Form2->Label1->Caption="Oaoea";
           Form2->Label2->Caption="Oaaey";
           Form2->Label3->Caption="Oiaaa";
           Form2->Label4->Caption="?ai??a";
           pravil_otvet=1;
                   break;

  case 20:
           Form2->Label5->Caption="?ea c oeo e?a?i ciaoiaeouny a Ao?eo??";
           Form2->Label1->Caption="Aaia";
           Form2->Label2->Caption="Aaaoaiaea";
           Form2->Label3->Caption="Aaeaia";
           Form2->Label4->Caption="Aiiao?an";
           pravil_otvet=1;
                   break;

  case 21:
           Form2->Label5->Caption="?e caoou iia?o?eo I?ee? Iaona? ";
           Form2->Label1->Caption="Aoo?";
           Form2->Label2->Caption="Iooo?";
           Form2->Label3->Caption="A?ii?";
           Form2->Label4->Caption="I?ii?";
           pravil_otvet=4;
                   break;

  case 22:
           Form2->Label5->Caption="?e iaceaa?ouny i'ynia ?anoeia aac e?noee?";
           Form2->Label1->Caption="A?oaeiea";
           Form2->Label2->Caption="Ei?aeea";
           Form2->Label3->Caption="O?ea";
           Form2->Label4->Caption="Oeeea";
           pravil_otvet=3;
                   break;

  case 23:
           Form2->Label5->Caption="Ai yei? ai?a i?e?aeea Ii?a eia?aa?";
           Form2->Label1->Caption="Aeua?on";
           Form2->Label2->Caption="Ie?ii";
           Form2->Label3->Caption="A?a?ao";
           Form2->Label4->Caption="Aaa?ano";
           pravil_otvet=3;
                   break;

  case 24:
           Form2->Label5->Caption="?eee c oeo aeiicaa??a aoa i'yni?aieo?";
           Form2->Label1->Caption="Oa?aoicaa?";
           Form2->Label2->Caption="O?eoa?aoiin";
           Form2->Label3->Caption="Aaa?icaa?";
           Form2->Label4->Caption="A?iioicaa?";
           pravil_otvet=1;
                   break;

  case 25:
           Form2->Label5->Caption="?ea i?noi io?eiaei i?aai ia i?iaaaaiiy Ie?ii?enueeo ?ai? o 2008 ?io??";
           Form2->Label1->Caption="Aoaiin-Ae?an";
           Form2->Label2->Caption="Ea??";
           Form2->Label3->Caption="Iaa?ea";
           Form2->Label4->Caption="Iae?i";
           pravil_otvet=4;
                   break;

  case 26:
           Form2->Label5->Caption="?eui eiii'?oa? iia?aiiey?, ui ia ii?a ciaeoe ieoo, oa icia?a??";
           Form2->Label1->Caption="Aiia ia i?aee??aia";
           Form2->Label2->Caption="Aiia iio?aieea a ieoieiaeo";
           Form2->Label3->Caption="Aiia ia?aoai?eeany a uo?a";
           Form2->Label4->Caption="Aiia c'?ea ne? ? canioea";
           pravil_otvet=1;
                   break;

  case 27:
           Form2->Label5->Caption="Ooi c eaceiaeo ia?niia??a caiaaiya, ui a?i aa?iee, a i??o aaiaiaaiee ?ieia?e?";
           Form2->Label1->Caption="E?ieiaee Aaia";
           Form2->Label2->Caption="Eiu?e Aacnia?oiee";
           Form2->Label3->Caption="Ea?enii";
           Form2->Label4->Caption="A?ii?-ioo";
           pravil_otvet=3;
                   break;

  case 28:
           Form2->Label5->Caption="?eee eai?iu iaoee a?ecoou nooaaioe?";
           Form2->Label1->Caption="Aoee?iee";
           Form2->Label2->Caption="A?ai?o";
           Form2->Label3->Caption="Aeiac";
           Form2->Label4->Caption="Oiiac";
           pravil_otvet=2;
                   break;

  case 29:
           Form2->Label5->Caption="Ne?euee ?ac?a iio??aii a?ai??yoe, ia?o i?? a?a??caoe?";
           Form2->Label1->Caption="1";
           Form2->Label2->Caption="7";
           Form2->Label3->Caption="5";
           Form2->Label4->Caption="112";
           pravil_otvet=2;
                   break;

  case 30:
           Form2->Label5->Caption="A yeonu ni?eui?nou ia ian?eao cae?a?ouny aa?iee?";
           Form2->Label1->Caption="Ca?ay";
           Form2->Label2->Caption="Einye";
           Form2->Label3->Caption="Oaaoi";
           Form2->Label4->Caption="?ie";
           pravil_otvet=4;
                   break;

  case 31:
           Form2->Label5->Caption="Ui a?euo?nou e?aae aie?? ?o?aae? a iaa??";
           Form2->Label1->Caption="A?oa? a aieia?";
           Form2->Label2->Caption="Aiio ia oe?";
           Form2->Label3->Caption="Iee a i?ao";
           Form2->Label4->Caption="Neieo? a ?oo?";
           pravil_otvet=4;
                   break;

  case 32:
           Form2->Label5->Caption="?e cae?i?o?ouny iacaa aeoy?i? eacee A?eini??ea ?..?";
           Form2->Label1->Caption="N?i-ni?ie";
           Form2->Label2->Caption="N?i i'yoieou";
           Form2->Label3->Caption="N?i aiii?a";
           Form2->Label4->Caption="N?i a?a";
           pravil_otvet=3;
                   break;

  case 33:
           Form2->Label5->Caption="Ooi c'?a Eieiaea?";
           Form2->Label1->Caption="Aaai?au";
           Form2->Label2->Caption="Aiae";
           Form2->Label3->Caption="A?a";
           Form2->Label4->Caption="Eeneoy";
           pravil_otvet=4;
                   break;

  case 34:
           Form2->Label5->Caption="Ui caeeaaa a ii?? noa?ee c Eacee i?i noa?iai ? ii?a?";
           Form2->Label1->Caption="Ni?i?ia";
           Form2->Label2->Caption="Iaa?a";
           Form2->Label3->Caption="Ia?a?a";
           Form2->Label4->Caption="Aoaeo";
           pravil_otvet=2;
                   break;

  case 35:
           Form2->Label5->Caption="O ?iio iio?aiey? ia no?e iai?euaia a?aaa?ia ea?oiiey?";
           Form2->Label1->Caption="O a?iianoa?o?";
           Form2->Label2->Caption="A ioiae??";
           Form2->Label3->Caption="O e?oae?";
           Form2->Label4->Caption="A aooeao?";
           pravil_otvet=2;
                   break;
  case 36:
           Form2->Label5->Caption="Ne?euee aiii?a cono??ea A?eini??ea?";
           Form2->Label1->Caption="Ua ia cono??ea";
           Form2->Label2->Caption="N?i";
           Form2->Label3->Caption="Aanyou";
           Form2->Label4->Caption="I'you";
           pravil_otvet=2;
                   break;
  case 37:
           Form2->Label5->Caption="Ca ui Iaciaeei io?eiaa a?a ?a??aieea ?a??aio iaee?eo?";
           Form2->Label1->Caption="Ca o?e cieioeo iiiaoe";
           Form2->Label2->Caption="Ca ooea?ee";
           Form2->Label3->Caption="Ca aaene";
           Form2->Label4->Caption="Ca o?e aia?eo a?eiea";
           pravil_otvet=4;
                   break;

 case 38:
           Form2->Label5->Caption="?eei ieoaiiyi i?ineaaeany Aaieao?";
           Form2->Label1->Caption="Aooe ?e ia aooe?";
           Form2->Label2->Caption="Ieoe ?e ia ieoe?";
           Form2->Label3->Caption="Aeoe ?e ia aeoe?";
           Form2->Label4->Caption="Ieenoe aai ia ieenoe?";
           pravil_otvet=1;
                   break;
  case 39:
           Form2->Label5->Caption="?ei e??ieyouny ai no?i iaia?ia? oiaea?e?";
           Form2->Label1->Caption="Eea?i";
           Form2->Label2->Caption="Iieeoaaie";
           Form2->Label3->Caption="?aniei neiaii";
           Form2->Label4->Caption="Oooeaoo?ei?";
           pravil_otvet=1;
                   break;


    case 40:
           BitBtn1->Enabled=false;
           RadioButton1->Enabled=false;//?iaeii eiiiee "ia ia?eiaaiuie", uia ei?enooaa? iaoenioa ia "caaa?oeoe oano"
           RadioButton2->Enabled=false;
           RadioButton3->Enabled=false;
           RadioButton4->Enabled=false;
}
}
//---------------------------------------------------------------------------

void __fastcall TForm2::RadioButton1Click(TObject *Sender)
{variant=1;}
//---------------------------------------------------------------------------

void __fastcall TForm2::RadioButton2Click(TObject *Sender)
{variant=2;}
//---------------------------------------------------------------------------

void __fastcall TForm2::RadioButton3Click(TObject *Sender)
{variant=3;}
//---------------------------------------------------------------------------

void __fastcall TForm2::RadioButton4Click(TObject *Sender)
{variant=4;}
//---------------------------------------------------------------------------

void __fastcall TForm2::N2Click(TObject *Sender)
{
Form6->Show();
}
//---------------------------------------------------------------------------



#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm3::BitBtn1Click(TObject *Sender)
{
 Form1->Close();
 Form2->Close();                           
 Form3->Close();
 Form4->Close();
}
//---------------------------------------------------------------------------




#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm4::BitBtn1Click(TObject *Sender)
{
Form4->Visible=false;//i?eoiao?ii oi?io aia?aee i?ney ia?aaeyao
}
//---------------------------------------------------------------------------








#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------