Свходные данные вводится натуральное число x. выходные данные выведите сумму цифр числа x. примеры входные данные 123 выходные данные 6 входные данные 102 выходные данные 3

Var
x,s:integer;
begin
write('x=');
readln(x);
    while x>0 do
    begin
        s:=s+(x mod 10);
        x:= x div 10;
    end;
    writeln('s=',s);
end.