var
  D1, D2, D3, D4, D5, D6, D7: Integer;
begin
  D1 := 8 + 2;   //D1 is 10
  D2 := 8 - 2;   //D2 is 6
  D3 := 8 * 2;   //D3 is 16
  D4 := 8 div 2; //D4 is 4
  D5 := 5 mod 2; //D5 is 1
  D6 := -5 mod 2; //D6 is -1

  D7 := 1;
  Inc(D7);       //D7 is 2
  Dec(D7);       //D7 is 1
  Inc(D7, 10);   //D7 is 11

  WriteLn('d1 = ', D1);
  WriteLn('d2 = ', D2);
  WriteLn('d3 = ', D3);
  WriteLn('d4 = ', D4);
  WriteLn('d5 = ', D5);
  WriteLn('d6 = ', D6);
  WriteLn('d7 = ', D7);
end.