pascal高手来啊！

program jiaohuan;
var
n,m:integer;
begin
readln(n);
m:=0;
m:=(n mod 10)*10;
m:=m+(n div 10);
end;
这是两位数的交换

var
i,j,k,n,m,z,x,y,s,t:longint;
a:array[1..1000] of longint;
begin
read(n);
z:=n;
while z>0 do
begin
inc(x);
a[x]:=z mod 10;
z:=z div 10;
end;
for i:=x downto 1 do
write(a[i]);
end.

var a,b,c:longint；
begin
readln(a)；{读入一个数a,当然是一个两位数}
b:=a mod 10；{算出这个两位数的个位}
c:=a div 10；{算出这个两位数的十位}
a:=b*10+c；{十位成为各位，个位成为十位}
writeln(a)；{输出交换后的数}
end.

var q,w:longint;
begin
readln(q);
while q>0 do begin w:=w*10+q mod 10; q:=q div 10; end;
writeln(w);
readln;
end.

var a:integer;
begin
repeat
readln(a);
if(a>9)and(a<100)then a:=(a mod 10)*10+a div 10
else continue;