Ввести трехзначное число а.Прменять крайние цифры числа местами.

var
a,x:integer;
begin
writeln('Vvedite a');
readln(a);
x:=a mod 10*100;
a:=a div 10;
x:=x+a mod 10*10;
x:=x+a div 10;
writeln('resultat ',x)
end.