这程序拿错了？ - freepascal吧

level 1

_残破de羽翼_ 楼主

program rrr; var
a,b,c,r1,r2 :real;
begin
input(r1,r2) ;
a:=r1*r1 ;
output(a) ;
end ;
;

2012年06月15日 02点06分 1