gyuf

program number7;
uses crt;
var A,B,C: integer;
begin
clrscr;
A:=17;
B:=3;
C:=A div B;
writeln ('68 div 10 = ',C);
C:=A div B;
writeln ('65 div 8 = ',C);
C:=A-B;
writeln ('17-3 =',C);
C:=A+B;
writeln ('17+3 =',C);
C:=A mod B;
writeln ('65 mod 8 = ',C);
C:=A mod B;
writeln ('65 mod 8 = ',C);
readln
end.