来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/07 16:56:30
这个程序用pascal语言怎么写.
内容：输入三个正整数,若能用这三个数作为边长组成三角形,就计算并输出该三角形的面积,否则输出Can't.
var a,b,c:longint;
p:real;
begin
read(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a) then begin
p:=(a+b+c)/2;
write(sqrt(p*(p-a)*(p-b)*(p-c)));
end
else write('Can''t');
end.
作业帮