Pascal小问题

楼上差大了，既没定义pi=3.14159,又没有readln让使用者看清结果
var
r:real;
begin
write('input r:');
readln(r);
writeln('c=',2*3.14159*r:0:5);
writeln('s=',3.14159*r*r:0:5);
READLN
end.

我不想说啥.二楼的
我之所以匿名是怕被人看到回答这种问题 丢XXX
结果还被你 XX了 ..
你自己运行一下我的代码好了..
我至少保证在 TPC 7.0以上 FPC1.0以上可以正常编译运行
Pi是给你定义好的，不需要你自己再去定义了.
然后,你不会按Alt+F5么.尝试一下吧

program ex1(input,output);
var
r,c,s:real;
begin
read(r);
c:=2*PI*r;
s:=PI*r*r;
write(c,' ',s);
end.

var
r:double;
begin
read(r);
writeln('周长=',2*pi*r:0:5);
writeln('面积=',pi*r*r:0:5);
end.