Переведем 30 (10)<span> в двоичную систему вот так:</span>
<span>Целая часть числа находится делением на основание новой :(на фото)</span>
<span>
</span>
Получилось:<span>30 (10) = 11110 (2)</span><span> </span>
a - двухзначное число, b - первая цифра двухзначного числа
b: = a div 10;
if (b mod 2 = 0) then writeln ('Цифра чётная');
if (b mod 2 = 1) then writeln ('Цифра нечётная');