Verified answer

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

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

например:

n:=10;

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

n:=7;

n:=5;