Приписать по 1 в начало и в конец числа N. Например, из числа N=456 получить 14561 — Pascal(Паскаль)

program forum;

uses crt;

var
  a: integer;

begin
  clrscr;
  write('Input line ');
  read(a);
  write('1', a, '1');
  readkey;

end.