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

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017// Внимание! Если программа не работает, обновите версию!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Замечание: число не обязательно должно быть четырехзначным и не обязательно положительным.