gin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Braquo;;:=k+1;;(k=6)begin(sl=1) then ShowMessage ( Ви абсолютно вірно відповіли Ренкіна ); (sl=2) then ShowMessage ( Ви абсолютно вірно відповіли НЬЮТОН ); (sl=3) then ShowMessage ( Ви абсолютно вірно відповіли ЛЮБОВ ); ( sl=4) then ShowMessage ( Ви абсолютно вірно відповіли АЗБУКА ); (sl=5) then ShowMessage ( Ви абсолютно вірно відповіли ДОЛОТО ) ;. ShowModal () ;;. Enabled:=false ;; (RadioButton2.Visible=false) then.Caption:=Label3.Caption + У raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button4Click (Sender: TObject);
begin(RadioButton2.Visible=true)begin.ShowModal();.Enabled:=false;;(RadioButton2.Visible=false) then.Caption:=Label3.Caption + Г raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button5Click (Sender: TObject);
begin(RadioButton2.Visible=true)begin((sl=1)or(sl=2)or(sl=3)or(sl=4))begin.ShowModal();;(sl=5)begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Дraquo;;:=k+1;;(k=6)begin(sl=1) then ShowMessage ( Ви абсолютно вірно відповіли Ренкіна ); (sl=2) then ShowMessage ( Ви абсолютно вірно відповіли НЬЮТОН ); (sl=3) then ShowMessage ( Ви абсолютно вірно відповіли ЛЮБОВ ); ( sl=4) then ShowMessage ( Ви абсолютно вірно відповіли АЗБУКА ); (sl=5) then ShowMessage ( Ви абсолютно вірно відповіли ДОЛОТОraquo;);.ShowModal();;.Enabled:=false;;(RadioButton2.Visible=false)then.Caption:=Label3.Caption+laquo;Дraquo;;:=v+1;(vgt;15)then Form10.ShowModal () ;;
procedure TForm2.Button6Click (Sender: TObject);
begin(RadioButton2.Visible=true)begin(sl=1)begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Еraquo;;:=k+1;;.Enabled:=false;((sl=2)or(sl=3)or(sl=4)or(sl=5))begin.ShowModal();;(k=6)begin(sl=1) then ShowMessage ( Ви абсолютно вірно відповіли Ренкіна ); (sl=2) then ShowMessage ( Ви абсолютно вірно відповіли НЬЮТОН ); (sl=3) then ShowMessage ( Ви абсолютно вірно відповіли ЛЮБОВ ); ( sl=4) then ShowMessage ( Ви абсолютно вірно відповіли АЗБУКА ); (sl=5) then ShowMessage ( Ви абсолютно вірно відповіли ДОЛОТО ) ;. ShowModal () ;; end; (RadioButton2.Visible=false) then.Caption:=Label3.Caption + Е raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button7Click (Sender: TObject);
begin(RadioButton2.Visible=true)begin.ShowModal();.Enabled:=false;end;(RadioButton2.Visible=false) then.Caption:=Label3.Caption + Е raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button8Click (Sender: TObject);
begin(RadioButton2.Visible=true)begin.ShowModal();.Enabled:=false;end;(RadioButton2.Visible=false) then.Caption:=Label3.Caption + Ж raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button9Click (Sender: TObject);
begin(RadioButton2.Visible=true)begin((sl=1)or(sl=2)or(sl=3)or(sl=5))begin.ShowModal(); end;(sl=4)begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Зraquo;;:=k+1;;(k=6)begin(sl=1) then ShowMessage ( Ви абсолютно вірно відповіли Ренкіна ); (sl=2) then ShowMessage ( Ви абсолютно вірно відповіли НЬЮТОН ); (sl=3) then ShowMessage ( Ви абсолютно вірно відповіли ЛЮБОВ ); ( sl=4) then ShowMessage ( Ви абсолютно вірно відповіли АЗБУКА ); (sl=5) then ShowMessage ( Ви абсолютно вірно відповіли ДОЛОТО ) ;. ShowModal () ;;. Enabled:=false; end; (RadioButton2.Visible=false) then.Caption:=Label3.Caption + З raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button10Click (Sender: TObject);
begin(RadioButton2.Visible=true)begin(sl=1)begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Иraquo;;:=k+1;;.Enabled:=false;((sl=2)or(sl=3)or(sl=4)or(sl=5)) then Form4.ShowModal (); (k=6) begin (sl=1) then ShowMessage ( Ви абсолютно вірно відповіли Ренкіна ); (sl=2) then ShowMessage ( Ви абсолютно вірно відповіли НЬЮТОН ); ( sl=3) then ShowMessage ( Ви абсолютно вірно відповіли ЛЮБОВ ); (sl=4) then ShowMessage ( Ви абсолютно вірно відповіли АЗБУКА ); (sl=5) then ShowMessage ( Ви абсолютно вірно відповіли ДОЛОТО raquo ;) ;. ShowModal () ;; end; (RadioButton2.Visible=false) then.Caption:=Label3.Caption + І raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal (); ;
procedure TForm2.Button11Click (Sender: TObject);
begin(RadioButton2.Visible=true)begin.ShowModal();.Enabled:=false;;(RadioButton2.Visible=false) then.Caption:=Label3.Capti...