20. Какое значение примет переменная C в результате выполнения программы: program v; var a, b, c: integer; begin a:=2; b:=a*3+1; if b>a+5 then a:=4; if b=a+5 then a:=b - a; c:=a*b+a - b; writeln ('c=', c); end.

Решение:

1. a := 2.
2. b := 2 * 3 + 1 = 6 + 1 = 7.
3. Проверяется первое условие b > a + 5 (7 > 2 + 5), то есть (7 > 7), оно ложно.
4. Проверяется второе условие b = a + 5 (7 = 2 + 5), то есть (7 = 7), оно истинно.
5. Выполняется ветка then второго условия: a := b - a.
6. a := 7 - 2 = 5.
7. Теперь вычисляем c: c := a * b + a - b.
8. c := 5 * 7 + 5 - 7 = 35 + 5 - 7 = 40 - 7 = 33.

Ответ: 33