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

Условный оператор if...then...else имеет следующий синтаксис:Полный вариант оператора:if условие then оператор1else оператор2;Сокращенный вариант: if условие then оператор;Обратите внимание:1) По логическому условию выполняется ТОЛЬКО ОДИН оператор2) При использовании полного варианта оператора if, разделитель \";\" не ставиться после \"оператора1\"Если необходимо по логическому условию выполнить несколько операторов, то нужно их собрать в один составной оператор, ограничив блоком begin...endТогда получим такую запись полного составного оператора if...then...else:if логическое выражение thenbegin оператор1; оператор2;endelse begin оператор3; оператор4;end;Таким образом правильная запись программы:var a:integer; begin writeln(\'Введите любое число\'); read(a); if (a>0) then begin a:=a+1; writeln(a); endelse begin a:=a-2; writeln(a); end;end.