Как на pascal abc написать программу, которая будет считать сумму цифр числа, введенного с клавиатуры? количество цифр в числе неизвестно! число целое. желательно с объяснениями (вне программы). заранее ! p.s. я 15 ! !

Program LOL2016;
var n,s,r:integer;
begin
readln(n);
s:=0;
while(n <> 0) do begin
r:=n mod 10;
s:=s+r;
n:=n div 10;
end;
writeln(s);
end.

если что то не понятно просто спроси и я обьясню  :)