Відповідь:

Пояснення:

uses GraphABC;

begin

 // Встановлення графічного режиму

 SetWindowSize(800, 600); // встановлюємо розміри вікна

 SetWindowCaption('Мій рисунок'); // встановлюємо заголовок вікна

 // Рисуємо прямокутник

 Rectangle(X, Y, X + W, Y + H); // X, Y - координати верхнього лівого кута, W - ширина, H - висота

end.