Question

В чём ошибка? Почему выдает ошибку в 7 строке?

Answer 1

Заключи то что после if в скобки и будет тебе счастье. И ' ; ' убери после g mod 2 =0.
и в действии перед if в конце поставь ' ; '.

Answer 2

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; вы не поставили точку с запятой