测试数据来自 system/1762

背景

某日，先知突然命令他儿子magina完成一个任务：统计一个程序中的全程变量有多少，maina不愧是先知的儿子，10分钟就把程序编好了，下面他让你来做这道题。。。。

描述

统计一个程序中的全程变量的个数，程序中不含有过程名和函数名。

格式

输入格式

输入一个程序。

输出格式

输出只有一行，输出变量的个数。

样例1

样例输入1

var
 i,j:longint;
begin
 readln(i,j);
 writeln(i+j);
end.

样例输出1

2

限制

1s

提示

【数据范围】
1 ≤ 一行的长度≤ 200。

1 ≤ 程序的行数≤ 2,000。

so easy~

来源

magina原创