Чему будет равно значение переменной c в итоге выполнения куска программки

Это программка целиком будет иметь такой вид
Var a,b,c:integer;
begin
a:=1257;
c:=0;
while (agt;0) do
begin
if (a mod 2 lt;gt; 0) then
b:= a mod 10;
c:=c+b;
a:=a div 10;
end;
writeln(c);
end.
Результатом этой программки будет ответ 18. Значит выбрать необходимо 4 ответ