q200209049

uses graphabc;
var bas_x,bas_y,R:integer;

procedure OCircle(x0,y0,r0:integer);
var x,y,t,step:real;
begin
step := (2*Pi)/36;
t := 0;
while t<=2*Pi do begin
y := r0*cos(t);
x := r0*sin(t);
circle(x0+Round(x),y0-Round(y),5);
t := t + step;
end;
end;

BEGIN
  bas_x := windowwidth div 2;
  bas_y := windowheight div 2;
  R := 50; // радиус колец

  SetPencolor(clBlue);
  OCircle(bas_x-2*R,bas_y-R,R);
  SetPencolor(clOrange);
  OCircle(bas_x-R,bas_y,R);
  SetPencolor(clBlack);
  OCircle(bas_x,bas_y-R,R);
  SetPencolor(clGreen);
  OCircle(bas_x+R,bas_y,R);
  SetPencolor(clRed);
  OCircle(bas_x+2*R,bas_y-R,R);
END.