Вычислить значение выражения - Pascal ABC (248798)

Помогите написать полный код на Pascal, пожалуйста: Дано вещественное число . Вычислить , если:

Листинг программы

var
  x: real;
 
begin
  write('x = ');
  readln(x);
  write('f(x) = ');
  if abs(x - 5.5) <= 3.5
    then write(sin(x))
    else write(1.0)
end.

Объяснение кода листинга программы

Объявлена переменная x типа real.
Выводится сообщение x = и считывается значение переменной x с помощью функции readln().
Выводится сообщение f(x) = и значение функции f(x).
Проверяется условие abs(x - 5.5) <= 3.5.
Если условие выполняется, то вычисляется значение функции sin(x) и выводится на экран.
Если условие не выполняется, то выводится значение 1.0.