编写pascal语言程序,输入一个三位数的自然数,然后把这个数的百位数与个位数对调,输出对调后的数.

program j;
var
a,b,c,m,n:integer;
begin
readln(m);
a:=m div 100;
b:=(m div 10) mod 10;
c:=m mod 10;
n:=c*100+b*10+a;
writeln('n=',n);
readln
end.