code:
program game;
uses crt;
var a, b, c, d, e, f: array [-1..12] of byte;
g, taocgvat1, taocgv2, i, kq, luot, scfd: byte;
soluot: integer;
maxi: longword;
phim: string;
begin;
clrscr;
maxi:=32768;
f[12]:=2;
while ((a[1]=2) or (a[2]=2) or (a[3]=2) or (a[4]=2) or (a[5]=2) or (a[6]=2) or...