Написать программу: дано натуральное число. верно ли, что данное число начинается на нечетную цифру

Var
    i, d: integer;

begin
    readln(d);
    while d > 0 do
    begin
        i := d mod 10;
        d := d div 10;
    end;
    write(i mod 2 = 1);
end.