Дано натуральное число: 1) найти две первые цифры числа; 2) верно ли, что первая цифра данного числа-четная

Предыдущий
вопрос Следующий
вопрос

uses crt;

var n,count,code:longint;

st:string;

begin

clrscr;

readln(n);

str(n,st);

writeln('Первая цифра: ',st[length(st)],' ; Вторая цифра: ',st[length(st)-1]);

val(st[length(st)],count,code);

if odd(count) then write('Нет, не верно, первая цифра числа ',n,' нечетная')

else write('Да, верно, первая цифра числа ',n,' четная');

readkey;

end.