Помогите составить программу,чтоб они уменьшались!!! Очень срочно!Даю 50 баллов.​

Попробуй рисовать фигуру не через числа а через переменную

Тогда уменьшай ее постепенно уменьшая фигуру

например:

n:=10;

line(x,y,x+2.5n,y+n);

n:=7;

n:=5;