ДАЮ 100 БАЛЛОВ!!!!!!

Откройте файл с текстом программы и определите результат её выполнения. Можете мне, пожалуйста изменить программу для построения данной фигуры(которая нарисована). Помогите! Очень нужно! Я отсутствовала очень долго!​

Ответ:

Будет как раз первый прямоугольник.

Нужно зациклить

field(7,4);

For i:= 1 to 3 do

Begin

...

End;

Где ... Это весь код между(не включительно) field(7,4) и end. Единственное нужно поменять topoint(1,3) на topoint(1 + 2*i,3)

Объяснение: