program dropper;
var
r,c,originx,originy,nextR,nextC,x,y : Integer; // try to don't use enters on the var line.
begin // main begin
originx := 563;
originy := 213;
nextC := 41;
nextR := 35;
r := 0;
c := 0;
while(r<8) do
begin // first begin
if(c < 2) and (r...