Y: 6), (X: 7; Y: 6), (X: 1; Y: 7), (X: 6; Y: 7));\r
worth: array [1 .. 4] of TPoint = ((X: 0; Y: 0), (X: 7; Y: 0), (X: 0; Y: 7),\r
(X: 7; Y: 7));\r
-label Last;\r
procedure Easy;\r
var\r
m, n: integer;\r
begin\r
Score := 0;\r
result := true;\r
- if FTurnIndex < 50 then\r
+// if FTurnIndex < 50 then\r
inc(Score, AddScore(X, Y, waste));\r
dec(Score, AddScore(X, Y, worth));\r
case Stone of\r