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

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.