Ответить на :4 вопрос, и 5 написовать таблицу и вписать . Ну очень пишите ​

uses crt, graphabc;

var

  d,m,x,y,n,k:integer;

  xx,yy,t,a:real;

const

  xo=320; yo=240;

begin

  a:=0;

  for n:=1 to 20 do

  begin

  t:=0;

  for k:=1 to 6280 do

  begin

  xx:=200*cos(t);

  yy:=80*sin(t);

  x:=round(xo+(xx*cos(a)-yy*sin(a)));

  y:=round(yo-(xx*sin(a)+yy*cos(a)));

  PutPixel(x,y,white);

  t:=t+0. 001;

  end;

  a:=a+pi/20;

  end;

end.