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

我都不知道该怎么吐槽了...
program rrr; var
a,b,c,r1,r2 :real;
begin
input(r1,r2) ;【23333333！你的assign在哪里？你的reset在哪里？r2，r1是什么???为什么两个变量会出现在读文件里面？？？？
a:=r1*r1 ;
output(a) ;【assign的存在感阿卡林了....assign哭了....为什么变量a会出现在这里
end ;【文件结束end后面是.哟~
;【这个分号是怎么回事....
= =无力吐槽
program rrr;
var a,b,c,r1,r2:real;
begin
read(r1,r2);
a:=r1*r2;
write(a);
end.
我猜应该是这样的...
如果需要用到input和output
program rrr;
var a,b,c,r1,r2:real;
begin
assign(input,'rrr.in');reset(input);{从rrr.in读取数据｝
assign(output,'rrr.out');rewrite(output); {把数据输入到rrr.out}
read(r1,r2);
a:=r1*r2;
write(a);
close(input);
close(output);
end.
还有
变量不需要定义那么多....
浪费时间浪费空间

不是input，是readln
不是output，是writeln

program rrr; var
b,a:real;
begin
read(a,b) ;
write(a*b) ;
end.