Составить программку которая припишет слева и справа к числу по 1

program zz1;
var s:string; // задаем переменную строкового типа
n:integer; // задаем переменную целого типа
begin
write( введите данное число );
read(n); // вводим с клавиатуры данное натуральное число
str(n,s); // переводим число в строчку с подмогою специальной строковой процедуры
s:=1 + s + 1; // приписываем к данному числу слева и справа по единице
write( приобретенное число = , s); // выводим ответ
end.