Программисты, нужно написать программу на паскале. приписать по 1 в начало и конец числа n. например, из числа n=5678 надо получить 156781. с longint .

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  Writeln('1'+ReadInteger+'1')
end.

Var
  n: longint;
  s: string;

begin
  readln(n);
  n := n * 10 + 1;
  s := '1' + n;
  writeln(s);
end.