Ответ:

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

• 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.