Информатика. придумайте задание с изменением операции целочисленного деления

program number7;uses crt;var A,B,C: integer;beginclrscr;A:=17;B:=3;C:=A div B;writeln ('17 div 3 = ',C);C:=A mod B;writeln ('17 mod 3 = ',C);C:=A-B;writeln ('17-3 =',C);readlnend.