Нужен сам рисунок для высчитки координат (оригинал).

Операнды

line to

assign

Дай оригинал рисунка, тогда сделаеп))

а по сути ничего сложного. Строиш по рисунку х и у, высчитываеш координаты пересечения каждого круга с каждым направлением и все через if делаеш. Например:

read (a);

if (a = 1) then

line to (x,y);

как-то так))