program ct;
const
fi='baitho.inp';
fo='baitho.out';
var i :integer;
f1,f2 :text;
s :string;
procedure doc;
var tam:string;
begin
assign(f1,fi);
reset(f1);
s:='';
while not eof(f1) do
begin
readln(f1,tam);
s:=s+' '+tam;
end;
close(f1);
end;
procedure xuli;
var a :array[1..100]of string;
tam :string;
sl :longint;
kt :boolean;
begin
assign(f2,fo);
rewrite(f2);
while s[1]=#32 do delete(s,1,1);
while s[length(s)]=#32 do delete(s,length(s),1);
while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);
s:=s+#32;
sl:=0;
while pos(#32,s)<>0 do
begin
inc(sl);
a[sl]:=copy(s,1,pos(#32,s)-1);
writeln('a[',sl,']=',a[sl],'.');
delete(s,1,pos(#32,s));
end;
kt:=true;
for i:=1 to sl do
if a[i]<>a[sl-i+1] then
begin
kt:=false;
writeln(f2,0);
break;
end;
if kt then
writeln(f2,1);
close(f2);
end;
begin
doc;
xuli;
end.
CXByb2dyYW0gCWN0OwoJY29uc3QKCQlmaT0nYmFpdGhvLmlucCc7CgkJZm89J2JhaXRoby5vdXQnOwoJdmFyIGkJOmludGVnZXI7CgkJZjEsZjIJOnRleHQ7CgkJcyAJOnN0cmluZzsKCXByb2NlZHVyZSBkb2M7Cgl2YXIgdGFtOnN0cmluZzsKCWJlZ2luCgkJYXNzaWduKGYxLGZpKTsKCQlyZXNldChmMSk7CgkJczo9Jyc7CgkJd2hpbGUgbm90IGVvZihmMSkgZG8KCQliZWdpbgoJCQlyZWFkbG4oZjEsdGFtKTsKCQkJczo9cysnICcrdGFtOwoJCWVuZDsKCQljbG9zZShmMSk7CgllbmQ7Cglwcm9jZWR1cmUgeHVsaTsKCXZhciBhIAk6YXJyYXlbMS4uMTAwXW9mIHN0cmluZzsKCQl0YW0JOnN0cmluZzsKCQlzbAk6bG9uZ2ludDsKCQlrdCAJOmJvb2xlYW47CgliZWdpbgoJCWFzc2lnbihmMixmbyk7CgkJcmV3cml0ZShmMik7CgkJd2hpbGUgc1sxXT0jMzIgZG8gCWRlbGV0ZShzLDEsMSk7CgkJd2hpbGUgc1tsZW5ndGgocyldPSMzMiBkbyAJZGVsZXRlKHMsbGVuZ3RoKHMpLDEpOwoJCXdoaWxlIHBvcygjMzIjMzIscyk8PjAgZG8gCWRlbGV0ZShzLHBvcygjMzIjMzIscyksMSk7CgkJczo9cysjMzI7CgkJc2w6PTA7CgkJd2hpbGUgcG9zKCMzMixzKTw+MCBkbyAKCQliZWdpbgoJCQlpbmMoc2wpOwoJCQlhW3NsXTo9Y29weShzLDEscG9zKCMzMixzKS0xKTsKCQkJd3JpdGVsbignYVsnLHNsLCddPScsYVtzbF0sJy4nKTsKCQkJZGVsZXRlKHMsMSxwb3MoIzMyLHMpKTsKCQllbmQ7CgkJa3Q6PXRydWU7CgkJZm9yIGk6PTEgdG8gc2wgZG8KCQkJaWYgYVtpXTw+YVtzbC1pKzFdIHRoZW4KCQkJYmVnaW4KCQkJCWt0Oj1mYWxzZTsKCQkJCXdyaXRlbG4oZjIsMCk7CgkJCQlicmVhazsKCQkJZW5kOwoJCWlmIGt0IHRoZW4KCQkJd3JpdGVsbihmMiwxKTsKCQljbG9zZShmMik7CgllbmQ7CmJlZ2luCglkb2M7Cgl4dWxpOwplbmQu