Ответ:

Вычислим значения по порядку: сначала a = 5, затем b = 5 + 2 = 7. После этого a = (5 + 2) × (7 − 3) = 28.

program Hello;
var
  a, b: integer;
begin
  a := 5;
  b := a + 2;
  a := (a + 2) * (b - 3);
  writeln('a=', a, ', b=', b);
end.

Ответ: a=28, b=7