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

program zz1;

var s:string; / / задаем переменную строкового типа

n:integer; / / задаем переменную целого типа

begin

write (' введите заданное число ');

read (n); / / вводим с клавиатуры заданное натуральное число

str (n, s); / / переводим число в строку с помощью специальной строковой процедуры

s:='1' + s + '1'; / / приписываем к заданному числу слева и справа по единице

write (' полученное число = ', s); / / выводим ответ

end.