Нужно сделать движение прямоугольника в паскале

Question

Нужно сделать движение прямоугольника из нижнего левого угла по диагонали. 
И что бы прямоугольник закрашивался с низу в верх. 
Помогите пожалуйста)

Настя · Accepted Answer

вот 2 программки, переделай под прямоугольник 
{Ну и вот поезд: } 
program poezd; 
uses graphABC,crt; 
var 
x1,x2,x3,y1,y2,y3:integer; 
n,i,r,k:integer; 
m:array [1..6] of integer; 
begin 
randomize; 
m[1]:=clred; 
m[2]:=clyellow; 
m[3]:=clgreen; 
m[4]:=clblue; 
m[5]:=clolive; 
m[6]:=clsilver; 
x2:=80; x3:=80; x1:=80; i:=1; 
//for i:=1 to 40 do begin 
while x1 < 500 do begin inc(i); 
x1:=x1 + 10; 
y1:=200 ; 
 x2:=x2 + 5*i; 
 y2:=300 ; 
 x3:=x3 - trunc(5*i*i/2) + 10*i; 
 y3:=350 ; 
r:=10; 
delay(80); 
k:= 1; 
SetBrushColor(m[1]); 
circle(x1,y1,r); 
SetBrushColor(m[2]); 
 circle(x2,y2,r); 
 SetBrushColor(m[3]); 
 circle(x3,y3,r); 
 end; 
end. 
======================================================== 
 program flag; 
 uses graphABC; 
 begin 
setwindowwidth(800); 
 setwindowheight(600); 
 setfontsize(18); 
 setbrushcolor(clwhite); 
 rectangle(200,200,550,250); 
 textout(210,210,'Да здравствует Россия '); 
 setbrushcolor(clblue); 
 rectangle(200,250,550,300); 
 setbrushcolor(clred); 
 
 rectangle(200,300,550,350); 
 line(200,250,200,450); 
 end.