Дам много поинтов По примеру этой программы,слелайте то же самое,но чтобы вместо треугольника был квадрат uses GraphABC; var x1,y1,x2,y2: integer; i: integer; begin//рисуем домикSetBrushColor(clred); rectangle (250,225,350,275); line (250,225,300,200); line (300,200,350,225); //красиво стираем белым прямоугольником SetBrushColor(clWhite); setPenColor(clWhite); x1:=299; y1:=249; // начальное положение левого верхнего угола прямоугольника x2:=301; y2:=251; // правого нижнего угла for i:=1 to 200 dobeginrectangle (x1,y1,x2,y2); //рисуем прямоугольник sleep(50); //небольшая задержка для плавности x1:=x1-1; //изменение координат углов прямоугольника y1:=y1-1; x2:=x2+1; y2:=y2+1; end;end.