Определите значение переменной 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