Спираль Ферма и спираль Галилея., полярные координаты Опции

[Sensitive]

Нужно построить одновременно на экране:
спираль Архимеда r=a*phi для phi>0,
спираль Ферма r=a*sqrt(phi) для r>0,
спираль Галилея r=a*sqr(phi)-d для phi>0 и d>0.
Помогите плиз,вообще не знаю как их построить.
Вот для спирали Архимеда получила что-то такое:

uses graph;
Procedure put_polar(f,r:real);
begin
putpixel((getmaxx div 4)+trunc(r*cos(f)),
         (getmaxy div 4)-trunc(r*sin(f)),white);
end;

const a=5;
var f,r:real;
begin
init;
f:=0;
while f<=8*pi do begin
r:=a*f;
put_polar(f,r);
f:=f+0.001;
end;
readln;
closegraph;
end.