Построить семейство из двух кривых заданных уравнением в полярных координатах: p=a+b*(sin100f), где f Є [0,2Pi] , для значений параметров:1. а=150; b=50;2. a=75; b=25 — Pascal(Паскаль)

uses crt,graph;
var gd,gm,xc,yc,x,y:integer;
    a,b,r,f:real;
procedure Draw(a,b:real);
var f,r:real;
    x,y:integer;
begin
f:=0;
while f<=2*pi do
 begin
  r:=a+b*(sin(100*f));
  x:=xc+round(r*cos(f));
  y:=yc-round(r*sin(f));
  putpixel(x,y,7);
  f:=f+0.001;
 end;
end;
begin
gd:=0;
initgraph(gd,gm,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
Draw(150,50);
Draw(75,25);
readln
end.