помогите составить прогу на паскале. Найти значение выражение по формуле ln(2+квадратный корень из arctg x *sin1/2)

program vyragenie;
uses crt;
cоnst pi=3.14;
var x,c,y:extended;
begin
clrscr;
writeln('Введите x:');
read(x);
c:=arctan(x)*sin(0.5);
if c