Записать выражение на языке паскаль x=cosb2 - ln2a\eb-a

Var a, b, x: real;
begin
  write('Введите a, b: '); readln(a, b);
  x := cos(b)*2-ln(2)*a/exp(b)-a;
  writeln('x = ', x);
end.