Как я могу исправить мою синтаксическую ошибку? [закрыто]

OOFERS спросил: 03 февраля 2018 в 11:44 в: windows

Я хочу проверить свой код паскаля, но я не могу понять, почему он получает эту ошибку:

Fatal: Синтаксическая ошибка; ожидаемый, но ELSE нашел

Program Lesson2_Program1;
Var
   name, surname, community, inputAnswer : String;
   GrossSalary, expenses, NetIncome: Integer;Begin
    write('Enter your name:');
    readln(name);
    writeln;{new line}
    writeln;{new line}
    writeln('Please proceed to enter your gross salary: ',name);
    Begin {no semicolon}
    Write('Input applicant GrossSalary:');
    Readln(GrossSalary);
    Writeln('Input applicant expenses:');
    Readln(expenses);
    NetIncome := GrossSalary - expenses; {subtraction};
    Writeln(NetIncome);
    writeln;{new line}
    writeln('Please select a community (ClarendonC/SangreGV/ProvidenceG)');
    readln(InputAnswer);
Begin
    If (InputAnswer = 'ClarendonC') Then
    If NetIncome>=12500 Then
    Writeln('congragultions you qualify for this community');
    Else
    Writeln('Sorry, you do not qualify for the chosen community');
End.
    Else if (InputAnswer = 'SangreGV') Then
    If NetIncome>=9500 Then
    If NetIncome<=12500 Then
    Write('congragulations you qualify for this community');
    Else
    Write('Sorry, you do not qualify for the chosen community');
End.

0 ответов