读入整数N（N〈32767）。若该数仅由奇数数字组成，则输出TRUE，否则输出FALSE。
參考答案:var
c:char;a:longint;b:boolean;
begin
b:=true;
while not eof do
begin
read(c);
if not odd(ord(c)-48) then begin
b:=false;
readln;
break;
end;
end;
if b then writeln('TURE') else writeln('FALSE');
end.