Какой рисунок получится после выполнения программы

uses graphabc;  
 procedure figura(x, y, h, r:integer);                                                                                                     
 begin  
   line(x, y, x, y+h);                                                                                                                     
 
   drawrectangle(x, y+h-r, x+r, y + h)  
                                                                                                                                           
 end;  
 var  
                                                                                                                                           
   x,y,a,b,i:integer;  
 begin                                                                                                                                     
   x:=20; y:= 100; a:= 50; b:=20;  
   for i :=  1 to 5 do begin                                                                                                               
 
     figura(x, y, a, b);  
                                                                                                                                           
     x := x + 2 * b;  
     y := y + 10;                                                                                                                          
   end;  
 end.