Ответ:

Вместо присваивания a := 5 программа считывает значение a с клавиатуры. Остальные вычисления выполняются в том же порядке, что и в задании №7.

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