pascal括号匹配描述 给定一个算术表达式,检查其中的圆括号是否配对,给出适当信息（正好：Yes,左括号多：Left,右括号多：Right)输入格式 一行字符. 输出格式 三个信息之一.

pascal括号匹配描述 给定一个算术表达式,检查其中的圆括号是否配对,给出适当信息（正好：Yes,左括号多：Left,右括号多：Right)输入格式 一行字符. 输出格式 三个信息之一.
pascal括号匹配
描述
给定一个算术表达式,检查其中的圆括号是否配对,给出适当信息（正好：Yes,左括号多：Left,右括号多：Right)
输入格式
一行字符.
输出格式
三个信息之一.
样例输入
3*(4-5)+9/2
样例输出
Yes
注释
表达式长度

pascal括号匹配描述 给定一个算术表达式,检查其中的圆括号是否配对,给出适当信息（正好：Yes,左括号多：Left,右括号多：Right)输入格式 一行字符. 输出格式 三个信息之一.
program ex(input,output);
var a:char;left,right:0..255;
begin
left:=0;
right:=0;
a:='a';
while achr(10) do
begin
read(a);
if a='(' then left:=left+1
else if a=')' then right:=right+1;
end;
if left=right then writeln('Yes')
else if left