К среде надо сделать. Задание а) и б). Тема по информатике: основы алгоритмизации и...

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.