Var a,b : integer;

begin
a: =10;
for b: =0 to 5 do
a: =4*a+2*b;
writeln(a);
end.

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.