Напишите программу для паскаля! Дано натуральное число. Найти число, получаемое из исходного перестановкой его первой и последней цифр.

var a,bug:integer;s,s1,s2:string;begin;readln(a);str(a,s);      //переводим число в строкуs1:=s[1]; //запоминаем 1 символs2:=s[length(s)]; //запоминаем крайний символdelete(s,1,1);    //удаляем 1 символdelete(s,length(s),1);   //удаляем крайний символinsert(s2,s,1);  //ставим сохранённый крайний символ на первое местоinsert(s1,s,length(s)); //ставим сохранённый первый символ в конецval(s,a,bug); //делаем строку числом, не забыв о возможности баговwriteln(a);end.