问几道Pascal题目

1、
program xiti;
var a,b,c,d,i:integer;
begin
for i:=1000 to 9999 do
begin
a:=i div 1000;
b:=i div 100 mod 10;
c:=i div 10 mod 10;
d:=i mod 10;
if a*a*a*a+b*b*b*b+c*c*c*c+d*d*d*d=i then
writeln(i:6);
end;
end.
2、program aa;
var ans,i:longint;
procedure work(n:longint);
var i,s:longint;
begin
s:=1;
for i:=1 to n do
s:=s*i;
ans:=ans+s;
end;
begin
ans:=0;
for i:=1 to 10 do work(i);
writeln(ans);
end.
没有调试过,你自己看看能不能吧……