Код:
x10:=x9;x9:=x8;x8:=x7;x7:=x6;x6:=x5;x5:=x4;x4:=x3;x3:=x2;x2:=x1;x1:=x;
y10:=y9;y9:=y8;y8:=y7;y7:=y6;y6:=y5;y5:=y4;y4:=y3;y3:=y2;y2:=y1;y1:=y;
if co=0 then
x:=x-2;
if co=1 then
y:=y-2;
if co=2 then
x:=x+2;
if co=3 then
y:=y+2;
все х и у - интегеры, со - тоже. при нажатии влево со=0, вверх=1 и т.д. х, у - голова, х1 и у1 - второй сегмент и т.д.