Решение - Pascal ABC (12704)

Формулировка задачи:

Здравствуйте

Program Lab2;
Const a=12.56;
Var c, F, m, x: real;
Begin
write (' Введите c=');
readln (c);
m:=exp(2-a*ln(e))+abs(c-a)/2-a;
if c >= 1.6 then F:=exp(a*ln(c))+0.5*a-m; 
if c < 1.6 then F:=sqrt(c)+exp(a*ln(x))/m else; 
writeln ('F=', F);
End.

При - если ответы получаются верные. При - если с<1.6 ответы не совпадают. Помогите найти что не так я написал в коде.

Решение задачи: «Решение»

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

F:=(sqrt(c)+exp(a*ln(x)))/m

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

Функция F вычисляется как результат выражения sqrt(c) + exp(a*ln(x)) / m.
Функция sqrt(c) вычисляется как квадратный корень из числа c.
Функция exp(a*ln(x)) вычисляется как экспонента от произведения a и ln(x).
Функция ln(x) вычисляется как натуральный логарифм числа x.
Переменная c содержит значение, для которого вычисляется функция sqrt(c).
Переменная a содержит значение, для которого вычисляется функция exp(a*ln(x)).
Переменная x содержит значение, для которого вычисляется функция exp(a*ln(x)).
Переменная m содержит значение, для которого вычисляется функция F.