[Asira]

Написать процедуру, которая рисовала бы лестницу. Данные: число ступенек, длина самой маленькой, величина, на которую изменяется длина каждой следующей ступеньки.
Помогите если возможно оптимизировать........Есть ли какие нибудь варианты сделать код попроще... так как он необходим для модуля... и можно указать ошибки в этом коде...

Код:

uses graph;
procedure st(a,b,c:integer;var w,r:integer);
var x,y,z,q,e:integer;
begin
x:=220;
y:=340;
r:=x;
z:=10;
w:=x+b;
q:=y;
line(x,y,w,q);
a:=a-1;
e:=c;
while a>0 do
begin
x:=w;
y:=q-z;
e:=e+c;
w:=x+e;
q:=y;
line(x,y,w,q);
a:=a-1;
end;
end;