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

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программка не работает, обновите версию!

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

Пример
n= 3048
Сумма цифр одинакова 15

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