in Top: = 1; Left: = 0; end;
# 77: begin Top: = 0; Left: = 1; end;
# 75: begin Top: = 0; Left: = -1; end;; _Zmei;
{------} sh = 50 then (q1, q2); (4); ('');;: = random (74) +3;: = random (17 ) +3;: = random (9); (q1, q2); (4); (S);: = 0; sh: = sh +1; (x [1] = q1) and (y [1] = q2) then: = schet + s; (5); (35,24); ('shet', schet);;
{-------------} (Left <> 0) and ((x [1] <3)) or (x [1]> 78) then: = 0;: = ''; (35,12); (5); ('Game over');: = False;; (Top <> 0) and ((y [1] < 3)) or (y [1]> 21) then: = 0;: = ''; (35,12); (5); ('Game Over');: = False;; KeyPressed = True then Key : = Readkey; Key = # 27;
End.
Додаток Б
Вид програми
В
