Program rec;
uses graphabc;
var            x:integer = 1280;           
                 y:integer = 720;           
                 y2:integer = 1;       
                 y3:integer = 15;
begin    
setwindowsize(x,y);   
setpencolor(clblack);   
setpenwidth(3);    
Rectangle(x div 2,y2,x div 2 + 10, y3);
while(y3<710) do
begin
y2+=1;
y3+=1;
Rectangle(x div 2,y2,x div 2 + 10, y3);
FillRectangle(x div 2 -1,y2-3,x div 2 + 11, y2-1);
sleep(50);
end;
end.