Тема: pascal, цикл з передумовою; задано ціле число. знайти суму цифр у записі числа.

//Pascal ABC.NET v3.1 сборка 1172

Var
 n,c,s:integer;
begin
 read(n);
 while n<>0 do
  begin
   c:=n mod 10;
   s:=s+c;
   n:=n div 10;
  end;
 writeln(s);
end.

Пример ввода:
123
Пример вывода:
6