Помогите, пожалуйста!Pascal ABC!!!Напишите полный сценарий движения квадрата из точки (100;100) в точку (150;150).

Спасибо!

Спасибо!

//Pascal ABC.NET 3.1 сборка 1219uses GraphABC;Var i:integer;beginfor i:=100 to 150 do begin  clearwindow;  rectangle(i,i,i-30,i-30);  sleep(100); end;end.

//PascalABC.NET 3.1 сборка 1239uses GraphABC;const    side = 15;var    i: integer;begin    Window.Init(0, 0, 200, 200, clLightBlue);    Window.CenterOnScreen();    SetBrushColor(clBlue);        for i := 100 to 150 do    begin        ClearWindow(clLightBlue);        Rectangle(i - side, i - side, i + side, i + side);        Sleep(50);    end;end.