Bài toán về chữ số

Bài toán: Nhập vào 1 số nguyên dương. Tính tổng các chữ số và tìm số các chữ số.
Bài giải:
uses crt;
var n,d,tong,m:integer;
begin
clrscr;
tong:=0;
d:=0;
repeat
write('Nhap n:');readln(n);
if n>=1000 then writeln('Nhap lai!');
until n<1000;
m:=n;
while n>0 do
begin
d:=d+1;
tong:=tong+(n mod 10);
n:=n div 10;
end;
writeln('Tong cac chu so cua so ',m,' la:',tong);
writeln('So ',m,' co ',d,' chu so.');

readln;
end.

sao nhìu vại

Hay