program while21;
uses crt;
var
n:integer;
t:boolean;
begin
clrscr;
repeat
write('Введите число ');
readln(n);
until n > 0;
t:=false;
while n > 0 do
begin
if (n mod 2)=1 then t:=true;
n:=n div 10;
end;
write(t);
readln;
end.