Составить программу для вычисления функции

Program function_1;

var

F: real;

x: integer;

begin

writeln('Введите значение x: ');

readln(x);

F:=(sqr(x+1)+2*(x+1))/4*sin(x);

writeln('Значение функции F равно: ',F);

end.