请会编程的帮下忙！pascal的

来源：百度知道 编辑：UC知道 时间：2024/06/21 18:36:03
1.输入三个正整数，若能用这三个数作为边长组成三角形，就计算并输出该三角形的面积，否则输出Can't。(组成三角形的条件为：任意两边之和大于第三边)
2.输入一个三位数的整数，将数字位置重新排列，组成一个尽可大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。

俺是新手，不太懂，请多多帮忙！

program p1;
var a,b,c,l,s:rea;
begin
readln(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a) then
begin
l:=(a+b+c)/2;
s:=sqrt(l*(l-a)*(l-b)*(l-c));
writeln('面积是:',s);
end else writeln('不能构成三角形');
end.

program p2;
var a,b,c,t:integer;
begin
readln(a,b,c);
if a<b then begin t:=a;a:=b;b:=t; end;
if a<c then begin t:=a;a:=c;c:=t; end;
if b<c then begin t:=b;b:=c;c:=t; end;
t:=a*100+b*10+c;
writeln(t);
end.

我也是新手……

第一题:
var a,b,c,s,d:real;
begin
read(a,b,c);
if (a+b>c)and(a+c>b)and(c+b>a) then
begin
d:=(a+b+c)/2;
s:=sqrt(d*(d-a)*(d-b)*(d-c));
write(s);
end else write('Can"t');
end.

第二题:
var a,b,c:integer;
d:string;
begin
write(d);
a:=ord(d[1])-48; b:=ord(d[2])-48; c:=ord(d[3])-4