有某人识做吖?PASCAL噶!超急吖!!

1、输入三个数，将其按照从小到大输出
2、任意输入三个数，判断是否能构成三角形，如能，则求出其面积，不能，则打印“NO”。要构成三角形，必须满足两边之和大于第三边，即：B＋C＞A 或A＋C＞B 或A＋B＞C，如满足，则用海伦公式计算。
3、打印某年某月有几天

1.var a,b,c,d:integer;
begin
write('input a,b,c ')readln(a,b,c);
if a>b then begin
d:=a;a:=b;b:=d;
end;
if a>c then begin
d:=a;a:=c;c:=d;
end;
if b>c then begin
d:=b;b:=c;c:=d;
end;
writeln(a:3,b:3,c:3);
end.

2.var a,b,c,q,s:real;
begin
write('input a,b,c ');
readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
q:=(a+b+c)/2;
s:=sqrt(q*(q-a)*(q-b)*(q-c));
writeln(s:0:3);
end
else writeln('No');
end;

3.var year,month,days:integer;
begin
writeln('input year,month ');
readln(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) of (year mod 400=0) then
days:=29 else days:=28;