uses crt,graph; var gr,gm,i:integer; sx,sy:integer; x,y,a:real; function gx(x:real; sx:integer):integer; begin gx:=trunc(sx*x)+(getmaxx div 2); end; function gy(y:real; sy:integer):integer; begin gy:=(getmaxy div 2)-trunc(sy*y); end; procedure astr(t:real; var x,y:real); begin y:=a*cos(t)*sqr(cos(t)); x:=a*sin(t)*sqr(sin(t)); end; begin clrscr; readln(a); gr:=9; gm:=2; initgraph(gr,gm, 'z:\'); for i:=1 to 100 do begin putpixel(gx(x,sx), gy(y,sy), blue); end;readkey; closegraph; end.