Составить программу нахождения суммы чисел четырехзначного числа

Program exs;

var a, i, sum : integer;

begin

sum: = 0;

readln (a) ; {Считывание числа}

for i: = 1 to 4 do begin

sum:=sum + (a mod 10) ; {Находим остаток от деления на 10}

a:=a div 10; {Выкидываем найденную цифру из числа}

end;

writeln (sum) ;

end.