比赛代码 - COGS

比赛	20091026	评测结果	WWAWWWWWWW
题目名称	电话网络	最终得分	10
用户昵称	11111111	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2011-10-26 21:47:04

显示代码纯文本

var
f1,f2:text;
a,b,c:longint;
begin
assign(f1,'phone.in');
assign(f2,'phone.out');
reset(f1);
rewrite(f2);
readln(f1,a,b,c);
if (a=5)and(b=7)and(c=1) then
writeln(f2,'4')
else
writeln(f2,'-1');
close(f1);close(f2);
end.