Найти число, образованное из исходного приписыванием к нему такого же числа - Turbo Pascal

Дано натуральное число. Найти число, образованное из исходного приписыванием к нему такого же числа. Благодарю за помощь

Листинг программы

var
a,b,k:longint;
begin
readln(a);
b:=a;
k:=1;
while b>0 do
begin
b:=b div 10;
k:=10*k;
end;
k:=k+1;
a:=a*k;
writeln(a);
end.

Объяснение кода листинга программы

В начале объявляются три переменные типа longint: a, b и k.
Затем происходит чтение значения переменной a с помощью функции readln.
Значение переменной b присваивается значению переменной a.
Переменная k инициализируется единицей.
Затем начинается цикл while, который выполняется до тех пор, пока значение переменной b больше нуля.
Внутри цикла значение переменной b делится на 10, а переменная k умножается на 10.
После окончания внутреннего цикла значение переменной k увеличивается на единицу.
Значение переменной a умножается на значение переменной k и записывается в выходной поток с помощью функции writeln.
Цикл while завершается, когда значение переменной b становится меньше или равно нулю.