Question

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

Answer 1

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.

Answer 2

Спасибо!