on + Й raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button12Click (Sender: TObject);
begin (RadioButton2.Visible=true) begin (sl=1) then begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Кraquo;;:=k+1;;(sl=4)begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Kraquo;;:=k+1;;.Enabled:=false;((sl=2)or(sl=3)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.Button13Click (Sender: TObject);
begin (RadioButton2.Visible=true) begin ((sl=1) or (sl=2) or (sl=4)) begin.ShowModal (); end; (sl=3) then begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Лraquo;;:=k+1;;(sl=5) then begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Лraquo;;:=k+1;;.Enabled:=false;(k=6)then 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.Button14Click (Sender: TObject);
begin (RadioButton2.Visible=true) then begin.ShowModal () ;. Enabled:=false; end; (RadioButton2.Visible=false) then.Caption:=Label3.Caption + М raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button15Click (Sender: TObject);
begin (RadioButton2.Visible=true) begin (sl=1) then begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Нraquo;;.Caption:=laquo;Нraquo;;:=k+1;:=k+1;end;.Enabled:=false;(sl=2) then begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Нraquo;;.Caption:=laquo;Нraquo;;:=k+1;:=k+1;end;((sl=3)or(sl=4)or(sl=5)) then begin.ShowModal (); end; (k=6) then 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.Button16Click (Sender: TObject);
begin (RadioButton2.Visible=true) then begin ((sl=1) or (sl=4)) then.ShowModal (); (sl=2) then begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Oraquo;;:=k+1;;(sl=3) then begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Oraquo;;:=k+1;;(sl=5) then begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Oraquo;;.Caption:=laquo;Oraquo;;.Caption:=laquo;Oraquo;;:=k+3;;(k=6)then 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.Button17Click (Sender: TObject);
begin (RadioButton2.Visible=true) then begin.ShowModal () ;. Enabled:=false;...