Напишите функцию, которая определяет количество цифр переданного ей числа в паскале

function F1(a: integer): string; // описание функции. begin    Result := inttostr(a); // преобразуем переданное в качестве параметра число в строку.    writeln(\'Количество цифр в числе \',a,\' равно: \', length(Result)); // вывод на экран строки. end;

var      // начало основной программы.   b: integer; // объявление переменной целочисленного типа. begin   writeln(\'Введите целое число:\'); // вывод на экран строки.   readln(b); // считываем введенное с клавиатуры число.   F1(b); // вызываем функцию и передаем в качестве параметра введенное число.end.