用pascal语言编制程序，谁帮帮我，每编一个我追加5分。基础悬赏10分

1\var
n:integer;
begin
readln(n);
if ((n mod 4=0)and(n mod 100<>0))or((n mod 100=0)and(n mod 400=0)) then writeln('yes')
else writeln('no');
readln;
end.
2\var
a,i:integer;
panduan:boolean;
begin
readln(a);
panduan:=true;
for i:=2 to trunc(sqrt(a)) do
if a mod i=0
then
begin
panduan:=false;
break;
end;
if panduan
then writeln('yes')
else writeln('no');
readln;
end.
3、var n,m,r,t,a:integer;
begin
readln(n,m);
a:=n*m;
if n begin
t:=n; n:=m; m:=t;
end;
r:=n mod m;
while (r<>0) do
begin
n:=m;
m:=r;
r:=n mod m;
end;
writeln(m,' ',a div m);
readln;
end.
4、var
i,j,k:integer;
begin
for i:=2 to 1000 do
begin
k:=0;
for j:=1 to i-1 do
if i mod j=0 then inc(k,j);
if k=i then writeln(i);
end;
readln;
end.
我只会四题了

没人找到你的......好奇怀疑 你是谁 不介意说下
,
/ \
{ }
p !
; : ;
| : |
| : |
l ; l
l ; l
I ; I
I ; I
I ; I
I ; I
d | b
H | H
H | H
H I H
,;, H I H ,;,
;H@H; ;_H_;, ;H@H;
`\Y/d_,;|4H@HK|;,_b\Y/'
'\;MMMMM$@@@$MMMMM;/'
"~~~*;!8@8!;*~~~"
;888;
;888;
;888;
;888;
d8@8b
O8@8O
T808T
`~`

我来 第一题
只写主程序哈 关联那些自己写。
var l:longintl;
while not eof do
begin
readln(l);
if l mod 4 =0 then writeln('yes')
else writeln('no');
end;

我来回答这个问题吧……这些都是些小程序嘛！！顺便练练手~

因为不能一下子全部回答，我先占个楼。这些程序我会一一放上来的……

你肯定是六中奥信班的，请不要抄答案请自己思考。谢谢。否则我会告诉老师听。