У меня немного схожая была)
uses crt,dos,graph;
var
gd,gm,x1,y1,i:integer;
t,a,x,y,j,k:real;
begin
clrscr;
writeln ('vedite zna4enie parametra funkcii');
readln (a);
initgraph (gd,gm,'c:\bp\bgi');
t:=1;
i:=0;
j=240;
while (t<6400) do begin
x:=cos(t)*a;
y:=sin(t)*a;
x1:=round (int(x));
y1:=round (int(y));
putpixel (x1+i,y1+240,15);
t:=t+0.1;
i:=i+1;
end;
readkey;
closegraph;