for x:=1 to 4 do 
    begin 
      PenDown;
      Forward(30); 
      right(90);
      
    end; 
end;
Procedure początek;
Begin
  PenUp;
  Right (180);
  Forward (100)
  end;
procedure obrotl;
Begin

left(90);

end;
procedure dalej;
begin
forward (30);
end;
procedure kawałek;
begin
forward (15);
end;
procedure obrotp;
Begin

right(90);

end;
Begin
Początek;
kwadrat;
obrotl;
kwadrat;
dalej;
kwadrat;
dalej;
kwadrat;
dalej;
kwadrat;
dalej;
kwadrat;
dalej;
kwadrat;
dalej;
kwadrat;
kawałek;
obrotl;
obrotl;
dalej;
dalej;
dalej;
dalej;
dalej;
dalej;