pascal程序编程

看在又是你的份上 告诉你吧 最佳给我
var
a,b,c,d,e:integer;
begin
readln(a); {读入四位数}
b:=a div 1000;
c:=(a div 100) mod 10;
d:=(a mod 100) div 10;
e:=a mod 10;
writeln(e,d,c,b);
end.
相信你的智商 不详讲了 也好懂;

Program A
var
z:string;
l,i:integer;
begin
writeln('Input ');
readln(z);
l:=length(z);
for i:=l downto 1 do
write(z[i]);
readln;
end.

Mod是求余函数，Div是取整函数；（83 mod 12=11）(83 div 12=6)
Program test;
Var
s,t:integer; //定义s，t为整形
Begin
Write('Input Number:'); //输出“Input Number:”可有可无
Readln(s); //读入数据s
t:=s mod 10;Writeln(t);s:=s div 10; //t=s模10（即个位），输出，s变为s除10的整数部分，如s=1636，运算后t=6，s=163
t:=s mod 10;Writeln(t);s:=s div 10; //t=s模10（即十位），输出，s变为s除10的整数部分，如s=163，运算后t=3，s=16
t:=s mod 10;Writeln(t);s:=s div 10; //t=s模10（即百位），