Составить программу для вывода в рабочее поле следующего графического изображения. Верхний левый угол
квадрата имеет координаты (0, 0), сторона квадрата – 200 пикселей. Количество линий и окружностей должно точно
соответствовать изображению на рисунке.

ответ:

Подключаем библиотеку...

uses graphABC;

Объявляем константы... x - сторона квадрата, c - кол. линий.

const  x = 200;   c = 10;

Объявляем начало работы программы:

begin  

Рисуем прямоугольник с противоположными вершинами (0;0) и (200;200):

 rectangle(0, 0, x, x);

Создаём цикл от 0 до с-1 (но по сути он пробегает с раз; с-1 для того чтобы потом -1 не лепить со скобками):

for var i := 0 to c - 1 do

Рисуем линию от точки (i * x div c; x - 1) до (x -1; i * x div c):

     line(i * x div c, x - 1, x - 1, i * x div c);

...("x - 1" из-за того, что pen.width = 1)

Объявляем конец работы программы:

end.