Определите значение переменной b после выполнения алгоритма: a : = 10 b : = 18 a : = b mod 3 + a div 2 b : = a+b

Var a,b:integer;
begin
a := 10; 
b := 18; 
a := b mod 3 + a div 2; 
b := a+b;
writeln(b);
end.

Вывод
23