Procedure 일;
Var
  나   : Human;
  클라이언트 : Human;
  PC1  : Desktop;
  PC2  : Notebook;
Begin

 

  출근(회사로);

 

  With 근무 Do
  Begin

 

    PC1.듀얼모니터 := Enabled;
    PC1.엑셀 := Enabled;
    PC1.IDETool := Enabled;
    PC1.SQLTool := Enabled;
    PC2.CheckingTool := Enabled;

   
    While 클라이언트.Order<>'' Do
    Begin

 

      나.빡침모드 := True;

 

      While 결과값 = False Do
      Begin
         
        코딩;
        업데이트(결과값);
         
        If 결과값 = False Then
          Shouting('18181818');

 

      End;

 

      If Time = '12:00' Then
        점심;

 

      If Time > '18:00' Then
        나.야근모드 := True;

 

    End;

 

    나.빡침모드 := False;

    PC1.TurnOff := True;
    PC2.TurnOff := True;

 

  End;

 

  퇴근(집으로);

 

  If Exists(약속) Then
    술(With Friends)
  Else
    술(Alone);

  Alarm('06:00');

  Sleep;

 

End;