Объясните, как будут выполняться фрагменты программ:

1) if ab then a:=a else a:=b;

7) if a mod 23 then a:=a+1;

8) if (a mod 2=1) or (a mod 2 = 0) then if a<0 then a:=-a;

9) if a<0 then b:=a else b:=-a.

Замените приведенные фрагменты, где возможно, более короткими

операторами Паскаля.

1) похоже здесь ошибка if a? b

7) Если остаток от деления а на 2 НЕ равен 3, то а увеличить на 1. Остаток от деления а на 2 никогда не будет равен 3, так что a:=a+1 более короткая запись

8) если остаток от деления a на 2 равен или 1 или 0, и а больше нуля, то а сделать отрицательным. Так как остаток от деления на 2 всегда равен или 0 или 1, то более короткая запись if a<0 a:=-a

9) если а - отрицательно, то b присвоить значение a, если больше

, то сделать а отрицательным и b присвоить значение отрицаетльного