Паскаль Написать программу которая по введенному четырехзначному числу выводит сумму его цифр.Спасибо.

begin
  var t:=Abs(ReadInteger('n='));
  var s:=0;
  while t>0 do begin
    s:=s+t mod 10;
    t:=t div 10
    end;
  Writeln('Сумма цифр равна ',s)
end.


n= 3048
Сумма цифр равна 15

число не обязательно должно быть четырехзначным и не обязательно положительным.