Помогите пожалуйста решить.
Дано натуральное число. Определите сумму цифр в нем. Программу написать на Free Pascal.

var n,s:integer;beginwrite('n = ');readln(n);s:=0;while n>0 do begin s:=s+n mod 10; n:=n div 10; end;writeln('s = ',s);end.Пример:n = 258s = 15