Определите, что будет напечатано в результате выполнения следующего алгоритма
var a,b:integer;
begin
a:=0;
b:=2364;
while b>0 do begin
if b mod 10<5 then
a:=a+b mod 10;
b:=b div 10;
end;
writeln(a);
end.

 

объясните, как решать, пожалуйста.