Составить программу перестановки первой и последней цифр введенного четырех значного числа

var a,a1:integer;beginreadln(a);a1:=a mod 10;a:=a1*1000+(a mod 1000-a1)+(a div 1000);writeln(a);end.Пример:83911398