С клавиатуры вводится натуральное число N. приписать по 1 в начало и в конец записи числа. Строки не использовать — Pascal(Паскаль)

Например
3456, то 134561.

uses crt;
var n,m,k:longint;
begin
clrscr;
repeat
write('Введите натуральное число не более 99 999 999 n=');
readln(n);
until(n>0)and(n<=99999999);
n:=n*10+1;//добавим 1 в конец
m:=n;
k:=1;
while m>0 do
 begin
  m:=m div 10;
  k:=k*10;//считаем разряды и умножаем на 10
 end;
n:=n+k;//добавим 1 в начало
write(n);
readln
end.