Число, получаемое в результате приписывания по двойке в начало и конец записи исходного числа . в паскале

Var n,k,m: integer;
begin
  write('n = ');  readln(n);
  k:=n; m:=1;
  while k>0 do
  begin
    k:=k div 10;
    m:=m*10;
  end;
  k:=2*m*10+n*10+2;
  writeln(k);
end.

n = 78954
2789542