align="justify"> TForm1. Panel2Click (Sender: TObject);:=q +1; q mod 2=1 thenpanel2. Color:=clyellow;:=i +1;:=n +2;:=s + «2»; 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 thenpanel2. Color:=clgreen;:=j +1;:=m +2;:=s1 + «2»; 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. Panel3Click (Sender: TObject);:=q +1; q mod 2=1 thenpanel3. Color:=clyellow;:=i +1;:=n +3;:=s + «3»; 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 thenpanel3. Color:=clgreen;:=j +1;:=m +3;:=s1 + «3»; 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. Panel4Click (Sender: TObject);:=q +1; q mod 2=1 thenpanel4. Color:=clyellow;:=i +1;:=n +4;:=s + «4»; 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 thenpanel4. Color:=clgreen;:=j +1;:=m +4;:=s1 + «4»; 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 ...
