Как нарисовать забор в pascalabc, чтобы доска была в n пикселей, а забор состоял из k досок.

Question

Нужно исправить данную программу. 
program zabor; 
uses crt,graphabc; 
var i,a,b,c:integer; 
 
begin 
clrscr; 
textsize(20); 
writeln('Из скольки досок строим забор':40); 
readln(a); 
Writeln('Какой ширины доски'); 
readln(b); 
for i:=1 to a do 
begin 
line(50+i*50,400,50+i*50,200); 
line(50+i*50,200,75+i*50,190); 
line(75+i*50,190,100+i*50,200); 
line(100+i*50,200,100+i*50,400); 
line(100+i*50,400,50+i*50,400); 
end; 
end. 
Заранее спасибо.

Ширина доски не меняется!!!! как ее изменять Подскажите.

Михаил Печаткин · Accepted Answer

Создать процедуру отрисовки доски и передавать в нее ширину и количество 
У Вас рабочая программа, что в ней исправлять?

Pavel Yurevich · Answer

хорошо все работает, молодец, чуть добавил красоты, можешь еше раскрасить доски в цвета радуги 
program zabor; 
uses crt,graphabc; 
var i,a,b,c:integer; 
begin 
clrscr; 
textsize(15); 
write('Из скольки досок строим забор -->'); 
readln(a); 
Write('Какой ширины доски --> '); 
readln(b); 
for i:=1 to a do 
begin 
line(50+i*50,400,50+i*50,200); 
line(50+i*50,200,75+i*50,190); 
line(75+i*50,190,100+i*50,200); 
line(100+i*50,200,100+i*50,400); 
line(100+i*50,400,50+i*50,400); 
end; 
end.