用PL/0语言实现输入圆的半径和高，计算面积，体积等

如下代码所示，定义半径r,高h,周长len,面积a1,,体积volumn，用面积公式和体积公式V=SH即可求得

var r,h,len,a1,a2,volumn;
begin
read(r);
read(h);


len:=2*3*r;
a1:=3*r*r;
a2:=a1+a1+len*h;
volumn:=a1*h;

write(len);
write(a1);
write(a2);
write(volumn);

end.

由于PL/0语言只能用整数，所以Π=3

c:=b+a  表示将a+b的值赋给c