Среда разработки: 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.
Hosted by uCoz