比赛代码 - COGS

比赛	10101115	评测结果	WWWWWWWWWW
题目名称	矩形分割	最终得分	0
用户昵称	itachi	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2010-11-15 11:28:57

显示代码纯文本

program t1(input,output);
var
data:array[1..2,1..2000]of integer;
n,m,i:integer;
begin
assign(input,'cut.in');
reset(input);
assign(output,'cut.out');
rewrite(output);
readln(n,m);
for i:= 1 to n-1 do
  read(data[1,i]);
  for i:= 1 to m-1 do
  read(data[2,i]);
close(input);
data[1,1]:=data[1,1]*(m*n-1);
writeln(data[1,1]);
close(output);

end.