帮忙编下程序啊。。。PASCAL。。

1.
var
n:integer;
begin
readln(n);
if n<0 then writeln(-);
if n>0 then writeln(+);
end.
2.
var
a,b:integer;
begin
readln(a,b);
if a>=b then writeln(sqr(a)) else writeln(sqr(b));
end.
3.
var
s:real;
begin
readln(s);
if s<=50 then writeln(s*0.15:0:2);
if s>50 then writeln(s*0.15+(50-s)*0.1:0:2);
end.
4.
var
s:real;
begin
if s<=50 then writeln(s);
if (s>50) and (s<100) then writeln(s*0.9);
if s>100 then writeln(s*0.8);
end.
5.
var
a,b,c:integer;
begin
max:=0;
read(a,b,c);
max:=a;
if max<=b then max=b;
if max<=c then max:=c;
writeln(max);
end.
6.
var
s,m,h:integer;
begin
readln(s);
readln(m);
case s of
1,3,5,7,8,10,12:h:=31;
4,6,10,12:h:=30;
if (s=2) and (m mod 4<>0) then h:=28;
if (s=2) and (m mod 4=0) then h:=29;
writeln(h);
end.
7.
var
m:integer;
s:char;
begin
randomize
m:=random(4)+1;
readln(h);
if (h='s') and (m=1) then writeln('ping ju');
if (h='s') and (m=2) then writeln('ni shu le');
if (h='s') and (m=3) then writeln('ni ying le');
if (h='r') and (m=2) then writeln('ping ju');
if (h='r') and (m=3) then writeln('ni shu le');
if (h='r') and (m=1) then writeln('ni ying le');
if (h='p') and (m=3) then writeln('ping ju');
if (h='p') and (m=1) then writeln('ni shu le');
if (h='p') and (m=2) then writeln('ni ying le');
end.
我点到为止，想继续知道答案选我为最佳答案。
另外，上面的，别骂人，本人可是计算机编程高手。

二 var
a,b:real;
begin
readln(a,b);
if a>b
then a:=a*a
else b:=b*b;
writeln(a,b)
end.
三 var
weight,pay:
real;
read(weight);
begin
if weight<=50
then pay:=weight*0.15
else pay:=50*0.15+(weight-50)*0.1;
writeln(pay)
end.
四 var
spent,pay:real;
begin
read(spent);
if spent<=50
then pay:=spent
else if spent<=100
then pay:=spent*0.9
else pay;=100+(spent-100)*0.8;
writeln(pay)
end.
五 var
a,b,c,temp:integer;
begin
read(a,b,c);
if a>b
then begin
temp:=a;
a:=b;
b:=temp;
end;
if a>c
then begin
temp:=a;
a:=c;
c:=temp;
end;
if b>c
then begin
temp;=b;
b:=a;
a:=temp;
end;
writeln(a,b,c)
end.
六 var
year,month,days:integer;
begin
read(year,month);
case month of
1,3,5,7,8,10,12:days:=31;
4,6,9,11:days:=30;
2 :if (year mod 4=0)
and(year mod 100<>0)
or(year mod 400=0)
then days:29
else days:28;
end;{case}
end.
第七题不太理解题目意思 到底计算机需要输出什么样的结果？ 玩的人只需要输入 石头 剪刀 布 中的任意一个是吧！

循序渐进编程作业
一 var
a,b,temp:real;
begin
read(a,b);
temp:=a;
a;=b;
b:=temp;
writeln(a);
writeln(b)
end.
选我吧，下面的人是抄我的。

1 var i:integer;
begin
readln(i);
if i>0 then writeln('+') else if i<0 then writeln('-');
readln;
end.
2 begin
writeln(1);
writeln(12);
writeln(123);
writeln(' ',1);
writeln(' ',12);
writeln(123);
readln;
end.
3 var i:integer;
begin
readln(i);
writeln(i mod 10,i mod 100 div 10,i mod 1000 div 100,i div 1000);
readln;
end.

二 var
a,b:real;
begin
readln(a,b);
if a>b
then a:=a*a
else b:=b*b;
writeln(a,b)
end.
三 var
weight,pay:
real;
read(weight);
begin
if weight<=50
then pay:=weight*0.15
else pay:=50*0.15+(weight-50)*0.1;
writeln(pay)
end.
四 var
spent,pay:real;
begin
read(spent);
if spent<=50
then pay:=spent
else if spent<=100
then pay:=spent*0.9
else pay;=100+(spent-100)*0.8;
writeln(pay)
end.
五 var
a,b,c,temp:integer;
begin
read(a,b,c);
if a>b
then begin
temp:=a;
a:=b;
b:=temp;
end;
if a>c
then begin
temp:=a;
a:=c;
c:=temp;
end;
if b>c
then begin
temp;=b;
b:=a;
a:=temp;
end;
writeln(a,b,c)
end.
六 var
year,month,days:integer;
begin
read(year,month);
case month of
1,3,5,7,8,10,12:days:=31;
4,6,9,11:days:=30;
2 :if (year mod 4=0)
and(year mod 100<>0)
or(year mod 400=0)
then days:29
else days:28;
end;{case}
end.
第七题不太理解题目意思 到底计算机需要输出什么样的结果？ 玩的人只需要输入 石头 剪刀 布 中的任意一个是吧！

循序渐进编程作业
一 var
a,b,temp:real;
begin
read(a,b);
temp:=a;
a;=b;
b:=temp;
writeln(a);
writeln(b)
end.

问题比较简单，但是量太大了，做完不把我累死，有时间再给你写吧