pascal 长方形

var
a,b,c,l,s:real;
begin
read(a,b,c);
l:=2*a*b+2*a*c+2*b*c;
s:=a*b*c;
write(l:8:2,' ',s:8:2);
end.
l为表面积，S为体积
话说我刚在P吧里发过。。。
原来你还发知道了啊

program cuboid;
var
a,b,c,s,v:double;
begin
readln(a,b,c); //读入长方体的长、宽、高
s:=2*(a*b+b*c+a*c); //用s保存长方体的表面积
v:=a*b*c; //用v保存长方体的体积
writeln('s=',s:0:3); //输出s
writeln('v=',v:0:3); //输出v
end.

长方形怎么会有体积= =

program xx;
var
a,b,c,s,v:integer;{a,b,c为长宽高，s为表面积，v为体积}
begin
read(a,b,c);
s：=(a*b+a*c+b*c)*2;
v:=a*b*c;
write('s=',s,'v=',v);
readln
end.

program chang;(input,output)
var
a,b,c:integer;{a,b,c是长高宽}
begin
read(a,b,c);
write('biaomianjishi',a*b+b*c+c*a+a*b+b*c+c*a);
write('tijiwei',a*b*c);
end.