Задайте 4-значне число. Знайдть суму його цифр. Паскаль

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

begin
  var n:=Абс(ReadInteger('Введите естественное число:'));
  // Абс - охрана от злобных буратинок, вводящих отрицательные числа
  var s:=0;
  while ngt;0 do begin
    s+=n mod 10;
    n:=n div 10
    end;
  Writeln('Сумма цифр равна ',s)
end.

Пример
Введите натуральное число: 3052
Сумма цифр одинакова 10

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