Дам 50б.желательно 1 вариант

вариант 1

uses graphABC;

var i:integer;

begin

SetWindowSize(1000,1000);

for i:=1 to 10 do line(100*i,0,100*i,1000);

for i:=1 to 10 do line(0,100*i,1000,100*i);

SetBrushColor(clred);

for i:=0 to 9 do FillRect(100*i,100*i,100*i+100,100*i+100)

end.

вариант 2

uses graphABC;

var i:integer;

begin

SetWindowSize(1000,1000);

for i:=1 to 10 do line(100*i,0,100*i,1000);

for i:=1 to 10 do line(0,100*i,1000,100*i);

SetBrushColor(clyellow);

for i:=0 to 9 do FillRect(100*i,1000-100*i,100*i+100,1000-100*i-100)

end.