Паскаль var a:integer; begin writeln(39;Введите хоть какое число39;); read(a); if (aamp;gt;0) then

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