比赛代码 - COGS

比赛	测试比赛	评测结果	AAAA
题目名称	加法问题	最终得分	100
用户昵称	梦里醉逍遥	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-04-21 17:31:43

显示代码纯文本

program aplusb;
const
  fi='aplusb.in';  fo='aplusb.out';
var
  a,b,c:real;
  fin,fout:text;
begin
  assign(fin,fi);  reset(fin);
  readln(fin,a,b);  close(fin);
  c:=a+b;
  assign(fout,fo);  rewrite(fout);
  writeln(fout,c:0:0);  close(fout);
end.