Вцелом 3 значном числе поменять местами 1 и последнюю цифру(паскаль)

  VAR N,a,b,c:INTEGER; 
begin 
 Readln(n);  
  a:=(n mod 100)div 10; 
b:=(n mod 100)mod 10; 
 c:=n div 100; 
  writeln(b,a,c); 
end.