помогите решить задачу!!! Данычисла ,необходимо возвести  во 2ую степень sin 1 числа и  cos 2 числа.вот так как то

1
2
3
4
5
6
7
8
9
10

var i, n: integer;
     p :real;
begin
 write('Введите n: ');
 readln(n);
 p:= 1;
 for i:= 1 to n do
  p:= p*2;
 writeln('Результат = ', р);
end.