Вопрос Помогите ошибка в программе Error: Incompatible types: got "Extended" expected SmallInt.

[Antonioot]

programm Summa;

var a, b, c, d, e :integer;

begin
readln (a);
b:= a mod 10;
c:= a mod 100 - b / 10;
d:= a div 100;
e:= b+c+d;
writeln (e);
end.