Напишите пожалуйста программу на Паскале

 program ComputeQ; 
var 
  b, x, bx, Q: Real; 
 
begin 
  { Задаем значение B } 
  b := 1.5; 
 
  { Запрашиваем значение x у пользователя } 
  Write('Введите значение x: '); 
  ReadLn(x); 
 
  { Вычисляем bx } 
  bx := b * x; 
 
  { Условный оператор If_Then_Else для определения Q } 
  if bx < 1 then 
    Q := bx - Abs(bx) 
  else if bx = 1 then 
    Q := 1 
  else if bx > 2 then 
    Q := bx + 1 
  else 
    Q := 0; { Для промежутка 1 < bx <= 2, Q не определено в условиях, задаем значение 0 } 
 
  { Выводим результаты } 
  WriteLn('Исходные данные: b = ', b:0:2, ', x = ', x:0:2); 
  WriteLn('Результат: Q = ', Q:0:2); 
end.