pascal编程问题从键盘输入一个字符,如果是‘Y’,则再换一行输入一个正数,表示一个圆的半径,计算并输出此圆的周长和面

var
ch:char;//第一行输入的字符
r,x,y,z,a,b:longint;//r为半径,x,y,z为三角形边长,a,b为长宽
p:double;//p为海伦公式里的一个量
begin
readln(ch);
if ch='Y' then
begin
readln(r);
writeln(2*pi*r:0:2);
writeln(pi*sqr(r):0:2);
end
else if ch='S' then
begin
readln(x,y,z);
writeln(x+y+z);
p:=(x+y+z) shr 1;
writeln(sqrt(p*(p-x)*(p-y)*(p-z)):0:2);
end
else if ch='J' then
begin
readln(a,b);
writeln((a+b) shl 1);
writeln(a*b);
end;
end.