1. Если буквально по тексту задания, то число должно быть должно быть однозначным, тогда число будет соответствовать цифре.
2. Если имелось ввиду, что вводится символ и надо выяснить является ли введенный символ цифрой, то можно применить функцию StrToInt от введенного символа, если в результате получится цифра, то вводили символ - цифру.
Для первого варианта можно попробовать такое решение:
Var a :integer; Begin writeln('Введите цифру '); readln(a); case a of 0 : writeln ('ноль'); 1 : writeln ('один'); 2 : writeln ('два'); 3 : writeln ('три'); 4 : writeln ('четыре'); 5 : writeln ('пять'); 6 : writeln ('шесть'); 7 : writeln ('семь'); 8 : writeln ('восемь'); 9 : writeln ('девять') else writeln ('Это число не цифра'); end; end.
не поняла ваши ответы. формула будет выглядеть так :