ПОМОГИТЕ Безотлагательно, ПАСКАЛЬ ПОЖАЛУЙСТА ! ! 1. Написать программу, которая вычислит

ПОМОГИТЕ Безотлагательно, ПАСКАЛЬ ПОЖАЛУЙСТА ! !
1. Написать программу, которая вычислит количество цифр в числе, лежащем в спектре от -32768 до 32767 и выведет его на экран. Если пользовал ввел дробное число - то вывести на экран "-1", если юзер ввел число, которое не лежит в обозначенном спектре "-2". Если оба вероятных варианта оплошности "-3". Тесты для проверки: 0 -gt; 1, 0.5 -gt; -1, 123 -gt; 3, 32789 -gt; -2, -32777 -gt; -2, 32767,33 -gt; -3. После проверки трудоспособности программки преобразовать ее в функцию num_x, параметром которой будет дробное число X, а значением - целое число. Пример описания функции function num_x(x:real):integer; Перестроить программку так, чтоб в главный программе было две строки readln(a); writeln(num_x(a));