Цикл, рисование забора - Pascal ABC

Формулировка задачи:

Помогите, пожалуйста, нарисовать забор в паскале, с помощью цикла)

Решение задачи: «Цикл, рисование забора»

Листинг программы

uses graphABC;
var x,y,w,h,i:integer;
begin
setwindowsize(320,150);
centerwindow;
rectangle(10,10,windowwidth-10,windowheight-10);
w:=(windowwidth-20)div 6;
x:=10;
y:=60;
for i:=1 to 6 do
 begin
  line(x,y,x+w div 2,y-30);
  line(x+w div 2,y-30,x+w,y);
  if i<6 then line(x+w,y,x+w,windowheight-10);
  x:=x+w;
 end;
end.

Объяснение кода листинга программы

В первой строке используется библиотека graphABC, которая, вероятно, предоставляет функции для работы с графиками.
Переменные x, y, w и h инициализируются целочисленными значениями.
Строка setwindowsize устанавливает размер окна приложения, которое будет отображать график.
Строка centerwindow выравнивает окно по центру экрана.
Строка rectangle создает прямоугольник в окне приложения.
Переменная w вычисляется как (windowwidth-20)/6, где windowwidth — ширина окна приложения.
Переменная x устанавливается равной 10, а переменная y устанавливается равной 60.
В цикле for переменной i от 1 до 6 выполняется следующая последовательность действий: — Строка line рисует прямую линию от точек (x,y) и (x+w/2,y-30). — Строка line рисует прямую линию от точек (x+w/2,y-30) и (x+w,y). — Если i меньше 6, то строка line рисует прямую линию от точек (x+w,y) и (x+w,windowheight-10). — Значение переменной x увеличивается на w.
Цикл for завершается, когда i становится равным 6.
Приложение завершается.