Kазак Uses GraphABC;
begin
  LockDrawing;
  for var i:=1 to 800 do
  begin
    Window.Clear;
    Brush.Color := clGray;
    FillRectangle(i+10,90,i-110,430);
    Brush.Color := clRed;
    Ellipse(i,100,i-100,200);
    Brush.Color := clYellow;
    Ellipse(i,210,i-100,310);
    Brush.Color := clGreen;
    Ellipse(i,320,i-100,420);
    Redraw;
    Sleep(1);
  end;
  for var i:=1 to 900 do
  begin
    Window.Clear;
    Brush.Color := clBlack;
    Ellipse(i,100,i-200,300);
    Brush.Color := clWhite;
    Ellipse(i-1,101,i-199,299);
    Brush.Color := clRed;
    Ellipse(i-20,120,i-180,280);
    Brush.Color := clWhite;
    FillRectangle(i-50,180,i-150,220);
    Redraw;
    Sleep(1);
  end;
end.