сумма цифр

[temnot]

задание найти сумму цифр трехзначного числа, код не работает

var a:integer;
begin
readln(a);
writeln('сумма цифр равна', a dif 100+a mod 100 mod 10+a mod 100 dif 10);
readln;
end.

[BDA]

var
  a: integer;
begin
  readln(a);
  writeln('сумма цифр равна: ', a div 100 + a mod 100 div 10 + a mod 10);
  readln;
end.

UPD
Пожалуйста

[temnot]

спасибо -_-