codevs 赋值问题 1707

题目描述 Description
在很多程序设计语言中，忘记给变量赋初值的错误常令人头疼。 在下面的问题中，最开始仅有变量a中有确定的值。变量为单个小写字母， 每行恰好有三个字符，中间一个是赋值运算符'='。 请编程求出含N行的程序段运行以后有哪些变量中有确定的值。


输入描述 Input Description
第一行:N (0<N<=10^6) 以下N行，每行3个字符，为一条语句


输出描述 Output Description
如果没有，输出 none 否则在一行中按字母表顺序给出所有有确定值的变量名。


样例输入 Sample Input
4
b=a
c=d
d=b
e=f


样例输出 Sample Output
a b d

代码：

var

  a:array['a'..'z']of boolean;
  i,n,s:longint;
  j,x,y:char;


begin
  readln(n);
  fillchar(a,sizeof(a),false);
  a['a']:=true;
  for i:=1 to n do
    begin
      read(x,y);
      readln(y);
      a[x]:=a[y];
    end;
  for j:='a' to 'z' do
    if a[j] then begin write(j,' ');inc(s);end;
  if s=0 then write('none');
end.