Написать программу вычисления значения логического выражения |x-2|> =5

Var
  x:real;
begin
  Write('x=');
  Read(x);
  Writeln(Abs(x-2)>=5)
end.

Тестовый пример
x=3.15
False