Program msc1;
var i,g:integer;
begin
writeln('Введите число');
readln(i);
g:=i mod 10;
if g mod 2 = 0 then write('Число чётное') else write('Число нечётное');
end.
1. У Вас использовалась переменная А, вместо i ( g:=i mod 10; )
2. После условия if стояла точка с запятой которая там ненужна
3. Вместо then написано thene
Ещё забыл одну ошибку. После g:=i mod 10; вы не поставили точку с запятой