比赛代码 - COGS

比赛	20110725	评测结果	AWWWWWWWWWWWWWWAWWWW
题目名称	存在与否	最终得分	10
用户昵称	Yoghurt	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2011-07-25 11:46:57

显示代码纯文本

program exists;
const
        filename='exists';
var
        n,m:longint;

procedure init;
var
        x,y,z,i:longint;
begin
        readln(n);
        for i:=1 to n-1 do readln(x,y,z);
        readln(m);
end;

begin
        assign(input,filename+'.in'); reset(input);
        assign(output,filename+'.out'); rewrite(output);

        init;
        writeln(n+m-1);

        close(input); close(output);
end.