program number7;
uses crt;
var a,b: integer;
begin
clrscr;
a := 342;
b := 512;
a := a div 10 mod 10;
b := a + b mod 10;
writeln ('17 div 3 = ',b);
readln
end.
b=6
program number7;
uses crt;
var a,b: integer;
begin
clrscr;
a := 342;
b := 512;
a := a div 10 mod 10;
b := a + b mod 10;
writeln ('17 div 3 = ',b);
readln
end.
b=6