Тема: 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