Паскаль var a:integer; begin writeln('Введите любое число'); read(a); if (a>0) then a:=a+1; writeln(a); else a:=a-2; writeln(a); end. встречено else а ожидалось оператор?? Какая ошибка?

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

Ошибка в данном коде заключается в том, что ключевое слово "else" было использовано вне блока оператора "if". В Паскале "else" должно быть определено только после оператора "then" в рамках условного оператора "if".

Исправленный код:

var a: integer;
begin
writeln('Введите любое число');
read(a);
if (a>0) then
a:=a+1
else
a:=a-2;
writeln(a);
end.