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

Раз натуральное, значит целое, но не значит, что чётное. Надо делить на 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.