Какое значение примет переменная b после выполнения данного алгоритма


a := 342;
b := 512;
a := a div 10 mod 10;
b := a + b mod 10;

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