Дано натуральное число. верно ли, что первая цифра данного числа - четная? решить в турбо паскале, без массивов.

Program z1;  Var n:integer;Begin  write('Введите число - ');  readln(n);  while n>9 do    n:=n div 10;    if (n mod 2= 0) then writeln('Четна')                    else writeln('Нечетна');End.