Составьте программу по информатике которая имитирует движения голубого шарика радиуса 20 по диагонали

Спасибо,щас проверю и отвечу)

uses graphabc; begin   window.Init(0, 0, 600, 600, clwhite);   window.IsFixedSize := true;   pen.Width := 3;   pen.Color := clblue;   lockdrawing;   for var i := 1 to 560 do   begin     drawcircle(20 + i, 20 + i, 20);     redraw;     window.Clear;   end; end.