Нужно решить через паскаль помогите пожалуйста (задача на фотке)

 program NumberGuess; 
var 
  x: integer; 
begin 
  x := (150 * 2 - 44) div 8; 
  writeln('Мальчик задумал число: ', x); 
   
  {Проверка} 
  writeln('Проверка:'); 
  writeln('Умножаем на 8: ', x * 8); 
  writeln('Прибавляем 44: ', x * 8 + 44); 
  writeln('Делим на 2: ', (x * 8 + 44) div 2); 
end.