Вычислить модуль, не используя стандартную функцию abs - Pascal ABC

Помогите пожалуйста решить задачу Вычислить модуль, не используя стандартную функцию abs, |5x-4|

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

var x,m:real;
begin
write('x=');
readln(x);
if 5*x<4 then m:=4-5*x
else m:=5*x-4;
write('|5x-4|=',m)
end.

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

Создается переменная x типа real для хранения значения, введенного пользователем.
Выводится сообщение x=, чтобы пользователь мог ввести значение для переменной x.
Значение x считывается с помощью функции readln().
Вычисляется выражение 5*x < 4. Если результат этого выражения равен истине, то присваивается переменной m значение 4-5*x. В противном случае, присваивается значение 5*x-4.
Вычисляется модуль значения переменной m с помощью формулы |a|, где a - значение переменной m.
Выводится сообщение |5x-4|=, чтобы пользователь мог увидеть результат вычисления модуля.
Конец программы.