Язык программирования Pascal. Ветвление

Синтаксис:
if <логическое выражение>
then <оператор1>
else <оператор2>;
Здесь if - "если", then - "то", else - "иначе".
Семантика:
Вычисляется значение <логического выражения>
Если <логическое выражение> истинно, то выполняется
оператор1, иначе выполняется оператор2.
Условный оператор if…then…else полная форма

Дано целое число N.
Если оно положительное, то прибавить к нему 1; если отрицательно или 0 вычесть из него 2.
Вывести полученное число.
program z1;
var n: integer;
begin
write ('введите целое число n=');
readln (n);
if n>0
then n:=n+1
else n:=n-2;
writeln ('n=',n);
end.
Пример:

Условный оператор if…then…
краткая форма (обход)
Синтаксис:
if <логическое выражение> then <оператор1>;
Здесь if - "если", then - "то".
Семантика:
1. Вычисляется значение <логического выражения>
2. Если <логическое выражение> оказывается истинным (TRUE), то выполняется оператор1, иначе переход к следующему оператору.

Даны два числа. Вывести большее из них.
program max;
var a,b,c : real;
begin
writeln ('введите числа a и b');
readln (a,b);
c:=b;
if a>b then c:=a;
writeln ('max=',c);
end.
Пример: