Program ret;
const
 max=10;
var
stepen,argyment:integer;
t,y:real;
{---------------------------------------------------}

Function Vvod:integer;
var
 st:integer;
 s:string;
 er:integer;
begin
repeat
  write('Введите максимальную степень:');
  readln(s);
  val(s,st,er);
  if er<>0 then
    writeln('ошибка!введите число')
  else
    if st>max then
      writeln('ошибка!значение должно быть < max')
  else
    If st<0 then
      writeln('ошибка!значение должно быть  >0');
until(er=0) or (st<max) or (st>0);
Vvod:=st;
end;
{---------------------------------------------------}
Function Arg:integer;
var
 x:integer;
 er:integer;
 s:string;
begin
repeat
  write('введите значение агрумента:');
  readln(s);
  val(s,x,er);
  if er<>0 then
    writeln('ошибка!Введите число');
until(er=0);
Arg:=x;
end;
{-----------------------------------------------}
 Function Schet(z,x:real;n:integer):real;
 begin
 if n=1 then
  Schet:=sin(-z)
 else
  Schet:=sin(-z)*Schet(-z*x,x,n-1);
 end;

{---------------------------------------------------}

begin

stepen:=Vvod;
argyment:=Arg;
writeln('Значение функции',Schet(argyment,argyment,stepen):3:3);

end.