PascalABC. Написать программу. Написать программу, которая показывает количество цифр во введенном числе.

var S : String; begin Write('Enter number = '); ReadLn(S); for var i := 1 to S.Length do if Not(S[i] in [#48..#57]) then begin WriteLn('No number!'); Halt; end; WriteLn(S.Length); end.