Program NoName; 

Var 
   x:integer; 

Procedure move; 

Begin 
  left(180); 
  forward(85); 
  left(90); 
end; 

Procedure kwadrat ; 

Begin 
  Begin 
    Right(45); 
    Forward(60); 
    Right(90); 
    Forward(60); 
    Right(135); 
    Forward(85); 
  end; 
end; 

Procedure kwadrat2 ; 

Begin 
  Begin 
    kwadrat ; 
    move; 
    kwadrat; 
  end 
end; 

Procedure kwadrat3 ; 

Begin 
  Begin 
    kwadrat2; 
    move; 
    kwadrat; 
  end 
end; 

Procedure kwadrat4 ; 

Begin 
  begin 
    kwadrat3; 
    move; 
    kwadrat; 
  end; 
end; 

Procedure kwadrat5 ; 

Begin 
  begin 
    kwadrat3; 
    move; 
    kwadrat2; 
  end; 
end; 

Procedure kwadrat6 ; 

Begin 
  begin 
    kwadrat3; 
    move; 
    kwadrat3; 
  end; 
end; 

Begin 
  PenUp; 
  SetPosition( 400, 100); 
  PenDown; 
  kwadrat ; 
  PenUp; 
  right(90); 
  SetPosition( 360, 150); 
  PenDown; 
  kwadrat2; 
  PenUp; 
  right(90); 
  SetPosition( 320, 200); 
  PenDown; 
  kwadrat3; 
  PenUp; 
  right(90); 
  SetPosition( 280, 250); 
  PenDown; 
  kwadrat4; 
  PenUp; 
  right(90); 
  SetPosition( 240, 300); 
  PenDown; 
  kwadrat5; 
  PenUp; 
  right(90); 
  SetPosition( 200, 350); 
  PenDown; 
  kwadrat6; 
end.