Найти сумму цифр четырехзначного числа в паскалях

Program al;
var a,b,c,d,n,s:integer;
begin
writeln('n=');
readln(n);
s:=0;
a:=n mod 10;
b:=n mod 100   div 10;
c:= n div 100 mod 10;
d:=n div 1000;
 s:=a+b+c+d; 
writeln('s=',s);
 readln; 
end.