Программа выполняется в паскале! дано целое число n (> 0). с операций деления нацело и взятия остатка от деления определить, имеются ли в записи числа n нечетные цифры. если имеются, то вывести true, если нет — вывести false. .

Var n:integer;
Begin
    Read(n);
    while (n>0) do begin
        if(n mod 2 = 1) then begin
            writeln(true);
            exit;
        end;
        n := n div 10;
    end;

    writeln(false);
End.