Составьте программу вычисления функции y=sinx2^n используйте подпрограмму,функцию для ее вычисления

Спасибо большое)

var x,y:real; n:integer;function f(x:real;n:integer):real;var i,st:integer;beginst:=1;for i:=1 to n do st:=st*2;f:=sin(x)*st;end;beginwriteln('x, n:');readln(x,n);y:=f(x,n);writeln('x = ',x,' y = ',y);end.Пример:x, n:2 5x = 2 y = 29.0975176584218

program sinus;var x,y:real;beginwriteln('введите число');readln(x);y:=sin(x)*2*2;writeln(y);end.