Среда разработки: Turbo Pascal 7.1
Uses Graph,crt; Var Gd,Gm,dlina,max:Integer; Begin clrscr; write('Введите размер витка спирали: '); read(max); Gd:=Detect; InitGraph(Gd,Gm,''); If GraphResult <> grOk Then Halt(1); moveto(round(getmaxx/2),round(getmaxy/2)); dlina:=max; repeat linerel(dlina,0); linerel(0,dlina); inc(dlina,max); linerel(-dlina,0); linerel(0,-dlina); inc(dlina,max); until dlina>getmaxy-max; repeat until keypressed; CloseGraph; End.