Составить программу для вычисления следующей функции в Turbo-Pascal

 program q;
  var a, k, p, x: real;
begin
  read(a, k);
  p := sqr(a) + sqrt(k + 3);
  x := (sqrt(p) + sqrt(a - 2)) / sin(k + 2) + sqrt(sin(p));
  write(x)
end.