Нужен сам рисунок для высчитки координат (оригинал).
Операнды
line to
assign
Дай оригинал рисунка, тогда сделаеп))
а по сути ничего сложного. Строиш по рисунку х и у, высчитываеш координаты пересечения каждого круга с каждым направлением и все через if делаеш. Например:
read (a);
if (a = 1) then
line to (x,y);
как-то так))