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

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.