Нарисовать 10 разноцветных вертикальных линий отстоящих друг от друга на равном расстоянии, причем длина каждого последующего отрезка должна уменьшаться на 5 пикселей. Картинку нарисовать с использованием конструкции цикла и одной процедуры рисования линии — Pascal(Паскаль)

uses graph;
const n=10;
procedure Linya(x,y,d,c:integer);
begin
setcolor(c);
line(x,y,x,y+d);
end;
var xc,yc,d,w,i:integer;
begin
xc:=0;
initgraph(xc,yc,'');
w:=getmaxX div (n+1);
d:=getmaxY-60;
xc:=w;
yc:=30;
for i:=1 to n do
Linya(xc+(i-1)*w,yc,yc+d-5*(i-1),i+1);
readln
end.

uses graph;
const n=10;
var xc,yc,d,w,i:integer;
begin
xc:=0;
initgraph(xc,yc,'');
w:=getmaxX div (n+1);
d:=getmaxY-60;
xc:=w;
yc:=getmaxY-30;
for i:=1 to n do
 begin
  setcolor(i+1);
  line(xc+(i-1)*w,yc-d+5*(i-1),xc+(i-1)*w,yc);
 end;
readln
end.