Hỏi đápMới bị lag

VÔ PASCAL GHI

Uses crt;
Var i,n,dem:longint;
Begin
ClrScr;
dem:=0;
Write('Nhap so nguyen n');ReadLn(n);
write('so ',n,' co ');
n:=abs(n);
while n>0 Do
Begin
n := n mod 10;
dem:=dem+1;
writeln(dem,' chu so');
end;
end.

xong rồi chạy số (15243) sẽ có bất ngờ