Простая задачка!ПОМОГИТЕ СРОЧНО! Опции

[bestlover]

Дано натуральное число. Приписать к нему такое же. Но чтобы можно было с этой цифрой потом операции выполнять!

[Lapp]

Можно попроще, мне кажется..
Типа вот так:

var
  n,m: LongInt;

begin
  n:=1234;
  m:=10;
  while n div m>0 do m:=m*10;
  n:=n*m+n;
  WriteLn(n)
end.