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

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

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

field(7,4);

For i:= 1 to 3 do

Begin

...

End;

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

Объяснение: