Var a,x:integer;
begin
write ('Введите число: ');
readln (a);
if a > 9 then x:=a+8
else x:=a-8;
writeln (x)
end.

Блок-схему в паскаль перенести очень просто. Каждый блок заменяем соответствующим оператором языка. Исключение могут составлять только описания переменных, которые на блок-схемах отсутствуют: эти описания мы вставляем перед первым обращением к переменной (при помощи var).

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadReal('a=');
  var x:real;
  if a>9 then
    x:=a+8
  else
    x:=a-8;
  Writeln('x=',x)
end.

При наличии опыта можно записать программу более компактно, поскольку современные алгоритмические языки - это более ёмкий и сжатый способ представления алгоритма по сравнению с блок-схемами, ориентированными на излишне подробное членение.

Вот та же самая программа в более компактном виде:

begin
  var a:=ReadReal('a=');
  if a>9 then Writeln('x=',a+8) else Writeln('x=',a-8);
end.