Каков результат выполнения данного алгоритма? Запишите число

Program Problem;
var a, s, d, e, b, r : integer;
begin
a = 836;
s := a div 100;
d := a mod 100 div 10;
e := a mod 10;
b := s + d + e;
writeln\(b\)
end.