Помогите с паскалем пожалуйста!!
Дано натуральное число n. Составьте программу, которая определяет, сколько цифр содержится в числе n.

program acab;var n:real;i:integer;beginread(n);i:=0;repeatn:=n/10;i:=i+1;until abs(n)<1;writeln(i);end.