Question

Срочно! даю 30 баллов создать программу используя модуль графики graphabc; которая заполняет все графическое окно уменьшающимся к центру прямоугольниками.

Answer 1

Uses Graphabc;
var i:integer;
begin
SetWindowWidth(800);
SetWindowHeight(600);
SetPenWidth(3); 
SetPenColor(clFuchsia);
for i:=0 to 13 do
 Rectangle(30+20*i, 30+20*i, 770-20*i, 570-20*i);
end.