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

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.