Pascal ABC.Помогите,пожалуйста!!!Напишите программу, которая двигает квадрат из левого верхнего угла в правый верхний. В качестве ответа загрузите текст программы и скомпилированный exe-файл.

Спасибо!

uses graphabc;begin  window.IsFixedSize := true;window.Height := 600;  window.Width := 800;  pen.Color := clred;  lockdrawing;   for var i := 0 to 750 do   begin      window.Clear;       DrawRectangle(i, 0, 50 + i, 50);      redraw;   end;end.