Выведите 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.