Написати програму яка знаходить значення виразу y=cos 2x + sin x

Program pr; var x:integer;y:real; begin write('X='); readln(x); y:=cos(2*x)+sin(x); writeln('y=',y); end.