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

Question

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

Answer 1

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

Вывод
23