Программа выполняется в Паскале! Дано целое число 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.