Выведите true если из 3 цифр один ровно 1, потивном случе false

Pascal: var a,b,c:integer; begin readln(a,b,c); if a=1 then writeln('true') else if b=1 then writeln('true') else if c=1 then writeln('true') else writeln('false') ; end.