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.