Написать программу, которая считывает число с экрана и выводит сумму цифр этого числа. паскаль

var  n, s: integer;begin  write('Число: ');  readln(n);  s := 0;  while n > 0 do   begin    s := s + n mod 10;    n := n div 10  end;  writeln('Сумма цифр = ', s);end.Тестовое решение:Число: 12345Сумма цифр = 15

на Javahttp://pastebin.com/SbfSZLFKввод - 1234567890123456вывод - 66var n, sum: integer;beginreadln(n);sum := 0;while n > 0 do beginsum := sum + n mod 10;n := n div 10end;writeln(sum);end.