Question

помогите решить задачу!!! Данычисла ,необходимо возвести  во 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.

Answer 1

var a, b:real;

begin
   writeln('Введи 1 число');
   readln(a);
   writeln('Введи 2 число');
   readln(b);
   writeln(sqr(sin(a)));
   writeln(sqr(cos(b)));
end.