Составить алгоритм решения задачи на языке Паскаль

var x,b,m,y: real;
begin
b:=4.1; m:=2.3;
write('x = ');
readln(x);
y:=(cos(2*x)/sin(2*x)+abs(x-b)*m)/(ln(x)/ln(10));
writeln('y = ',y:6:4);
end.

Пример:
x = 2.5
y = 8.5043