с информатикой . раз 5 отправляю и никто не отвечает ​

1)

uses crt;
var x,y,pr:integer;
begin
read(y,x);
pr:=1;
repeat
pr:=pr*y;
x:=x-1;
until x=0;
write(pr);
end.

2)

uses crt;
var
a:array[1..10] of integer;
pr,i,k:integer;
begin
for i:=1 to 10 do
read(a[i]);
clrscr;
pr:=1;
for i:=1 to 10 do
begin
if a[i]<0 then k:=k+1;
if a[i]>0 then pr:=pr*a[i];
end;
writeln('Исходный массив: ');
for i:=1 to 10 do
write(a[i],' ');
writeln;
if k<>0 then writeln('Отрицательных элементов: ',k) else writeln('Отрицательных элементов нет');
write('Произведение положительных элементов равно: ',pr);
end.

1) Си-для начала  переменные нужно в начало функции объявлять. Если компилятор у тебя си как бы сказать си-шный,тои файл будет тоже си-шный
2)Самым первым аргументом для синуса и косинуса и формула пов(pow)будет вещественное число.
Так,косинус  и синус:
 cos(Xnumber,4) 
У функции синус и косинус только один параметр, а у pow совсем наоборот. 
 double Xnumber; и другие
I)все переменные нужно объявить , как double.  
Читать нужно будет так:
scanf("%lf", &Xnumber);
 тебе нужна для пов(pow)?
если да?,то вот:
Пов(pow)pow(cos(Xnumber), 4) + pow(sin(Ynumber), 2) + 1.0 / 4 * pow(sin(2*Xnumber), 2) - 1;
Вроде все,если понял(а),а если нет,то пиши в сообщение,и спрашивай,что не понятно