Качала, В. В. Принципы создания пакета прикладных графических программ на языке Турбо-Паскаль (на примере задач геофизики) / под ред. А. А. Намгаладзе. – Апатиты : ПГИ КНЦ РАН, 1993. – 99 с.

begin Xk ROUND ((Xstart + Xend) / 2); Xk Radius * CXk-xt) div (Radius-DlSt) + xt; УК ROUND ((Ystart + Yend) / 2); Yk Radius * (Yk-yt) div (Radius-DlSt) + yt; Linefxt, vt. Xk, Yk); Line(Xstart, Ystart, Xk, Yk); Line(Xend, Yend, Xk, Yk); end; i with > end; { Strelka >