Логотип
Скачать .pas

uses GraphABC;
var a,x1,y1,x2,y2,c: integer;
begin
write('Введи a = ');
read(a); write(a);
x1:=50; y1:=50;
x2:=450; y2:=450;
for var i:=1 to 20 do
begin
setbrushcolor(BlueColor(c));
setpencolor(BlueColor(c));
rectangle(x1,y1,x2,y2);
x1:=x1+a; y1:=y1+a;
x2:=x2-a; y2:=y2-a;
c:=c-a;
if i=1 then floodfill(51,60,BlueColor(c));
end;
end.