а можно весь код глянуть? Что у тебя до первого begin например, а ещё перед 'else' можно не ставить ';'

>>882064
Это симулятор Дональда Трампа, брат попросил написать

Var
wall, a, dni, mex, arab, money, reput, srok: integer;
//a - сложность
aa, vi : real;
//aa- сложность, vi-выбор
Begin
writeln('симулятор Д.Дж. Трампа');
writeln('выберите сложность');
writeln('1, 2, 3');
readln(a);
mex := a50;
//данные игры
arab := a60;
wall := 0;
money := a70;
reput := 250;
srok := 200;
For dni:=1 To srok Do
//начало цикла
Begin
writeln('день ');
write(dni);
writeln('что будем делать сегодня?');
readln(vi);
//выбор действия
If vi=1 Then
Begin
writeln('прогоняем арабов');
arab := arab-10;
reput := reput-5;
money := money-20;
End;
Else
If vi=2 Then
Begin
writeln('депортируем мексиканцев');
mex := mex-10;
reput := reput-5;
money := money-20;
End;
Else
If vi = 3 Then
Begin
writeln('строим стену');
wall := wall+1;
money := money-50;
reput := reput-10;
End;
Else
If vi= 4 Then
Begin
writeln('создаем рабочие места');
reput := reput+30;
money := money+50;
dni := dni+1;
End;
Else
If vi = 5 Then
Begin
money := money-50;
reput := reput+50;
writeln('Make America great again!');
End;
Else
If vi = 7 Then
Begin
writeln('Раздел помощи.');
writeln(
'Вы можете управлять страной в несколько кликов:'
);
writeln(
'q - борьба с мексиканскими мигрантами. тратит деньги и репутацию'
);
writeln(
'w - борьба с арабскими мигрантами. тратит деньги и репутацию'
);
writeln(
'e - возведение стены. тратит много денег, немного подмачивает репутацию'
);
writeln(
'r - создание рабочих мест. тратит лишний ход, но приносит деньги и репутацию'
);
writeln(
't - рекламные акции. стоят денег, но дают репутацию'
);
writeln(
'так как ваши граждане - законопослушные, то платят налоги, но чем их меньше (в т.ч.) мигрантов, тем меньше налоги.'
);
writeln('раздел помощи не тратит дни');
dni := dni-1;
End;
money := round(money+(arab+mex)0,3*a);
End;
If reput<1 Or money<0//условия конца игры
Begin
break
End;
If mex<0 And arab<0 Do
Begin
break
writeln('ты победил!');
End;
If wall>99 Do
Begin
break
writeln('ты победил!');
End;
writeln('игра окончена');
End.//последний энд

Ошибку выдаёт в 34 строке

>>882041 (OP)
Чувак, хватит траллить программач с паскалем. Дозируй еду, а то скоро иммунитет будет - перестанут разъяренно на паскалистов кидаться.

Ошибку нашёл - else быть не должно было

>>882041 (OP)
Точу с запятой после энда убери, вкатывальщик мамкин. Это тебе не джава.

>>882090
Ну и If поставь, да. Или просто убери else.