5 задание на языке программирования "PascalABC"

Привет! Давай разберемся с этим заданием.

На фото представлено задание на языке программирования PascalABC. Задание номер 5 просит записать команды для построения изображения произвольного квадрата, прямоугольника и равнобедренного треугольника.

Для начала, давай определимся с координатами вершин фигур, которые мы хотим нарисовать. Затем нам нужно будет использовать команды MoveTo(x, y) и LineTo(x, y). MoveTo перемещает "карандаш" в заданную точку, не оставляя следа, а LineTo рисует линию из текущего положения "карандаша" до указанной точки.

Начнем с квадрата. Предположим, что одна из вершин находится в точке с координатами (1,1), и сторона квадрата равна 2. Тогда команды для его рисования на языке PascalABC будут выглядеть так:

begin
  MoveTo(1, 1); // Переходим к точке начала квадрата.
  LineTo(3, 1); // Рисуем сторону вправо.
  LineTo(3, 3); // Рисуем сторону вверх.
  LineTo(1, 3); // Рисуем сторону влево.
  LineTo(1, 1); // Замыкаем квадрат, переходя снова в начальную точку.
end.

Для прямоугольника, если предположить его верхнюю левую вершину той же точке (1,1), а стороны равными 3 и 2 соответств