Дано натуральное n amp;gt; 100. Чему одинакова сумма его цифр? В

program a1;

var              

i,n,s:integer;

begin

assign(input,'input.txt');

assign(output,'output.txt');

reset(input);

rewrite(output);

readln(n);

if n lt;= 100 then writeln('Неправильный ввод')

else begin

s := 0;

while (n gt; 0) do begin

s := s + n mod 10;

n := n div 10;

end;

writeln (s);

end;

close(input);

close(output);

end.