begin showmessage («2 гравець переміг!");:=pob1 +1;:=por +1;;;. Enabled:=false;;
TForm1. Panel5Click (Sender: TObject);:=q +1; q mod 2=1 thenpanel5. Color:=clyellow;:=i +1;:=n +5;:=s + «5»; i=4 then (strtoint (s [1]) + strtoint (s [2]) + strtoint (s [3])=15) or
(strtoint (s [1]) + strtoint (s [2]) + strtoint (s [4])=15) or
(strtoint (s [2]) + strtoint (s [3]) + strtoint (s [4])=15) or
(strtoint (s [1]) + strtoint (s [3]) + strtoint (s [4])=15) then begin showmessage («1 гравець переміг!");: =pob +1;:=por1 +1;; i=3 thenn=15 then begin showmessage («1 гравець переміг!");:=pob +1;:=por1 +1;;; q mod 2= 0 thenpanel5. Color:=clgreen;:=j +1;:=m +5;:=s1 + «5»; i=4 then (strtoint (s1 [1]) + strtoint (s1 [2]) + strtoint (s1 [3])=15) or
(strtoint (s1 [1]) + strtoint (s1 [2]) + strtoint (s1 [4])=15) or
(strtoint (s1 [2]) + strtoint (s1 [3]) + strtoint (s1 [4])=15) or
(strtoint (s1 [1]) + strtoint (s1 [3]) + strtoint (s1 [4])=15) then begin showmessage («2 гравець переміг!");: =pob1 +1;:=por +1;; j=3 thenm=15 then begin showmessage («2 гравець переміг!");:=pob1 +1;:=por +1;;;. Enabled:=false;;
TForm1. Panel6Click (Sender: TObject);:=q +1; q mod 2=1 thenpanel6. Color:=clyellow;:=i +1;:=n +6;:=s + «6»; i=4 then (strtoint (s [1]) + strtoint (s [2]) + strtoint (s [3])=15) or
(strtoint (s [1]) + strtoint (s [2]) + strtoint (s [4])=15) or
(strtoint (s [2]) + strtoint (s [3]) + strtoint (s [4])=15) or
(strtoint (s [1]) + strtoint (s [3]) + strtoint (s [4])=15) then begin showmessage («1 гравець переміг!");: =pob +1;:=por1 +1;; i=3 thenn=15 then begin («1 гравець переміг»);:=pob +1;:=por1 +1;;; q mod 2=0 thenpanel6. Color:=clgreen;:=j +1;:=m +6;:=s1 + «6»; i=4 then (strtoint (s1 [1]) + strtoint (s1 [2]) + strtoint (s1 [3])=15) or
(strtoint (s1 [1]) + strtoint (s1 [2]) + strtoint (s1 [4])=15) or
(strtoint (s1 [2]) + strtoint (s1 [3]) + strtoint (s1 [4])=15) or
(strtoint (s1 [1]) + strtoint (s1 [3]) + strtoint (s1 [4])=15) then begin showmessage («2 гравець переміг!");: =pob1 +1;:=por +1;; j=3 thenm=15 then begin showmessage («2 гравець переміг!");:=pob1 +1;:=por +1;;;. Enabled:=false;;
TForm1. Panel7Click (Sender: TObject);:=q +1; q mod 2=1 thenpanel7. Color:=clyellow;:=i +1;:=n +7;:=s + «7»; i=4 then (strtoint (s [1]) + strtoint (s [2]) + strtoint (s [3])=15) or
(strtoint (s [1]) + strtoint (s [2]) + strtoint (s [4])=15) or
(strtoint (s [2]) + strtoint (s [3]) + strtoint (s [4])=15) or
(strtoint (s [1]) + strtoint (s [3]) + strtoint (s [4])=15) then begin showmessage («1 гравець переміг!");: =pob +1;:=por1 +1;; i=3 thenn=15 then begin showmessage («1 гравець переміг!");:=pob +1;:=por1 +1;;; q mod 2= 0 thenpanel7. Color:=clgreen;:=j +1;:=m +7;:=s1 + «7»; i=4 then (strtoint (s1 [1]) + strtoint (s1 [2]) + strtoint (s1 [3])=15) or
(strtoint (s1 [1]) + strtoint (s1 [2]) + strtoint (s1 [4])=15) or
(strtoint (s1 [2]) + strtoint (s1 [3]) + strtoint (s1 [4])=15) or
(strtoint (s1 [1]) + strtoint (s1 [3]) + strtoin...
