Pascal спираль

[Илкин]

Помогите!Делать в PascalABC
Нужно создать простую программу рисование круглой спиральки, при этом должен быть запрос на количество ветвей(как я понял кругов) спирали.

[Илкин]

Апп помогите плиз завтра надо сдать!

[Mad_Cat]

так пойдет?

[Илкин]

Сообщение от Mad_Cat

так пойдет?

а программа сама?

[Stilet]

а программа сама?

А денюжку?

[Mad_Cat]

а программа сама?

uses crt,graphABC;
var  x,y,xc,yc,t,r,n:integer;
 xold,yold:integer;
begin
readln(n);
SetWindowCaption('спираль');
SetWindowSize(1024,768);
xc:=1024 div 2;
yc:=768 div 2;
t:=0;{начальный угол поворота спирали}
r:=5;{начальный радиус спирали}
xold:=xc;yold:=yc;
repeat
x:=xc+round(r*cos(t*pi/180));
y:=yc-round(r*sin(t*pi/180));
MoveTo(xold,yold);
LineTo(x,y);
xold:=x;yold:=y;
t:=t+20;{увеличиваем угол на 10 градусов}
r:=r+2;{увеличиваем радиус на 2 пикселя}
until t>n*360;{делаем n оборотов}
end.