Как осуществить изображение пирамидки

[Blue Sky]

нужно на канве image изобразить пирамидку ,которая имеет n прямоугольных дисков, самый меньший прямоугольник меньше самого большого в m раз, n и m задаются пользователем
как задать координаты подскажите пожалуйста))

[DoDge_VipeR]

как задать координаты подскажите пожалуйста))

rectangle(x,y,x1,y1);

x,y - левый верхний угол прямоугольника
x1,y1- правый нижний угол прямоугольника

[Blue Sky]

ну это понятно, интересно знать, какими они должны быть если учитывать n и m и условие

[DoDge_VipeR]

L--длина большого(ПЕРВОГО)
LL=L div m-- длина малого(ПОСЛЕДНЕГО)
dx=(L-LL) DIV N -- величина уменьшения длины с каждой итерацией
h--высота прямоугольников
вот и координаты)
x[n]:=x[n-1]+dx div 2;
y[n]:=y[n-1]+h;
x1[n]:=x1[n-1]-dx div 2;
y1[n]:=y1[n-1]+h;

[Blue Sky]

Спасибо)
________