Дано шестизначное число. Найти сумму его цифр. Величины для хранения
всех шести цифр числа не использовать.

Сделать программу в паскале

var a,s:integer;beginreadln(a);s:=0;while a>0 do begin s:=s+a mod 10; a:=a div 10; end;writeln('s = ',s);end.Пример:123456s = 21