У вас в конце программы идет вызов алгоритма Квадрат, образуется рекурсия, поскольку алгоритм вызывает сам себя.
Правильно будет так:
использовать Чертежник
алг квадрат
нач
цел x
цел y
нц 5 раз
x:=1
y:=1
опустить перо
сместиться на вектор (-1,1)
сместиться на вектор(-1,-1)
сместиться на вектор(1,-1)
сместиться на вектор(1,1)
нц 3 раз
поднять перо
сместиться на вектор (1,0)
опустить перо
сместиться на вектор(0,y)
сместиться на вектор(-1,1)
сместиться на вектор(-x,0)
сместиться на вектор(-x,0)
сместиться на вектор(-1,-1)
сместиться на вектор(0,-y)
сместиться на вектор(0,-y)
сместиться на вектор(1,-1)
сместиться на вектор(x,0)
сместиться на вектор(x,0)
сместиться на вектор(1,1)
сместиться на вектор(0,y)
y:=y+1
x:=x+1
поднять перо
кц
сместиться на вектор (6,0)
кц
кон
вот какая получилась программа у меня:
использовать Чертежник
алг квадрат
нач
цел x
x:=1
цел y
y:=1
нц 5 раз
опустить перо
сместиться на вектор (-1,1)
сместиться на вектор(-1,-1)
сместиться на вектор(1,-1)
сместиться на вектор(1,1)
нц 3 раз
поднять перо
сместиться на вектор (1,0)
опустить перо
сместиться на вектор(0,y)
сместиться на вектор(-1,1)
сместиться на вектор(-x,0)
сместиться на вектор(-x,0)
сместиться на вектор(-1,-1)
сместиться на вектор(0,-y)
сместиться на вектор(0,-y)
сместиться на вектор(1,-1)
сместиться на вектор(x,0)
сместиться на вектор(x,0)
сместиться на вектор(1,1)
сместиться на вектор(0,y)
y:=y+1
x:=x+1
поднять перо
кц
сместиться на вектор (6,0)
квадрат
кц
кон