free pascal编写三角形面积公式.

program sjxmj;
var
a,b,c,p,s:real;
begin
read(a,b,c);{读入边长}
P:=(a+b+c)/2;{海伦公式}
s:=sqrt(p*(p-a)*(p-b)*(p-c));{海伦公式}
writeln(S:0:10);{输出}
end。
这个没有判断过,如果要判断的话就追问吧。
program cfsmj;
var
a,b:real;
begin
read(a,b);
write(a*b:0:0);
end。
program zfsmj;
var
a:real;
begin
read(a);
write(sqr(a):0:0);
end。
再问： 顺便传授写简单计算方法，就是计算什么长方形面积什么的。
再答： program cfsmj;{长方形} var a,b:real; begin read(a,b); write(a*b:0:0); end。 program zfsmj;{正方形} var a:real; begin read(a); write(sqr(a):0:0); end。 已经写了呀