// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var s:=ReadlnString('Введите число, отделяя дробную часть запятой:');
s:=Trim(s); // мало ли...
var p:=Pos(',',s);
if p>0 then Writeln('Цифр в дробной части числа: ',s[p:].Length-1)
else Writeln('Запятой в числе не найдено')
end.
Тестовое решение
Введите число, отделяя дробную часть запятой: 423,56324
Цифр в дробной части числа: 5