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

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.