Решение математического выражения

[DeadWarlock]

var b,x:real;
begin
writeln('введите x');
read(x);
b:=((0.125)(x)+abs(sin(x)))/(1.5)(x)*(2)+cos(x);
writeln('b=', b);
end.

Ругается такой ошибкой:
Program1.pas(5) : Ожидалось имя процедуры или функции.
Что не так?

[domovou]

Попробуй:

uses wincrt;
var b,x:real;
begin
writeln('введите x');
read(x);
b:=((0.125)*(x)+abs(sin(x)))/(1.5)*(x)*(2)+cos(x);
writeln('b=', b);
end.

[DeadWarlock]

Сообщение от domovou

Попробуй:

uses wincrt;
var b,x:real;
begin
writeln('введите x');
read(x);
b:=((0.125)*(x)+abs(sin(x)))/(1.5)*(x)*(2)+cos(x);
writeln('b=', b);
end.

Помогло. Спасибо.