Дано число примечать этому числу с право и слево 1
Var n: integer; begin write('Введите число: '); read(n); writeln('Полученное число: 1', n, '1') end.