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

function F1 (a: integer) : string; / / описание функции.

begin

Result : = inttostr (a); / / преобразуем переданное в качестве параметра число в строку.

writeln ('Количество цифр в числе ', a,' равно: ', length (Result)); / / вывод на экран строки.

end;

var / / начало основной программы.

b: integer; / / объявление переменной целочисленного типа.

begin

writeln ('Введите целое число:'); / / вывод на экран строки.

readln (b); / / считываем введенное с клавиатуры число.

F1 (b); / / вызываем функцию и передаем в качестве параметра введенное число.

end.