谁能帮我找下这个free pascal程序的错误啊啊啊啊啊啊啊~

来源：百度知道 编辑：UC知道 时间：2024/05/21 20:47:43
1234的倒置是4321，找出所有的四位数和五位数，且它们的倒置是原数的四倍。
program v017;
var a,b,c,d,e,f,g:integer;
a:=e div 1000;
b:=e div 100 mod 10;
c:=e div 10 mod 10;
d:=e mod 100;
g:=e div 10000;
if e<10000 and e>=1000
then f:=1000d+100c+10b+a;
if e>10000 and e<=10000
then f:=10000d+1000c+100b+10a+g;
if f div e=4 and f mod e=0
then writeln(e:3);
readln;
end.
额滴神啊，各位美女帅锅995吧，最好告诉我为什么会错and怎样改，偶会感谢你滴~= =
还有，为虾米它说syntax error,;expected but identifier d found 捏？这是一个问题（深思状……）= =~

program v017;
var a,b,c,d,e,f,g:longint; //integer改为longint，不然会爆掉
begin //你begin都没加
for e:=1000 to 99999 do begin //你e的值都没有
a:=e div 10000;
b:=e mod 10000 div 1000;
c:=e mod 1000 div 100;
d:=e mod 100 div 10;
g:=e mod 10;
if e>9999 then f:=10000*g+1000*d+100*c+b*10+a
else f:=1000*g+100*d+10*c+b;
//你的分解过程有问题，把你的分解过程从头到尾重新写了一遍
if f div e=4 and f mod e=0
then writeln(e); //把你的“:3”去掉了，因为e最少有4位，最多有5位
readln;
end; //这是for循环的end
end.

300个諎误 涐哭
program v017;
var a,b,c,d,e,f,g:integer;
begin
a:=e div 1000;
b:=e div 100 mod 10;
c:=e div 10 mod 10;
d:=e mod 100;
g:=e div 10000;
if (e<10000) and (e>=1000)
then f:=1000*d+100*c+10*b+a;
if (e>10000) and (e<=10000)
then f:=10000*d+1000*c+100*b+10*a+g;
if (f div e=4) and (f mod e=0)
then writeln(e:3);
readln;
end.

虽橪莈諎误ろ ，柦諟LZ泍鯓程垿蹴洧