Дано натуралное число переставить первое и последнее число (цикл) - Turbo Pascal

Формулировка задачи:

дано натуралное число переставить первое и последнее число (цикл)

Решение задачи: «Дано натуралное число переставить первое и последнее число (цикл)»

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

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

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

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