"Найти сумму цифр четырёхзначного числа" задача pascal

var a,a1,a2,a3,a4:integer;beginwriteln('a=');readln(a);a1:=a div 1000;a2:=a div 100 mod 10;a3:=a mod 100 div 10;a4:=a mod 10;writeln('цифры: ',a1:2,a2:2,a3:2,a4:2);writeln('sum=',a1+a2+a3+a4);end.