program CountDigitsAndSum;
var
num, digit, count, sum: integer;
begin
count := 0;
sum := 0;

writeln('Enter a number: ');
readln(num);

while num > 0 do
begin
digit := num mod 10;
count := count + 1;
sum := sum + digit;
num := num div 10;
end;

writeln('Number of digits: ', count);
writeln('Sum of digits: ', sum);
end.