Дано натуральное число.Найти первую цуфру числа.Верно ли что она четная?

Раз натуральное, значит целое, но не значит, что чётное. Надо делить на 10 и избавляться от остатка, пока не останется одна цифра(То есть, при последующем делении на 10 выйдет число меньше 1). Дальше сравниваешь если цифра делиться на 2 без остатка и получаешь тебе ответ. Если без остатков, то цифра чётная, если же с остатком при делении на 2, то цифра нечётная. Если тебе нужен сам алгоритм, то можешь отметить ответ, как нарушение, но я тебе дал ответ, как бы решал я. Языков программирования много не знаю, так что писать алгоритм не буду.

Program N;  Var A:integer; Begin ReadLn(A); While A>9 do  A:= A div 10; if A mod 2 = 0 then Writeln('Первая цифра чётная') else WriteLn('Первая цифра нечётная'); ReadLn End.