помогите составить программы для первых двух заданий срочно (вариант 5)в паскале

все верно

Const  a=-10;  b=1;var  i: integer;  begin  for i:=a to b do  writeln('F1(',i,')=',1/Tan(i));end.  Const  a=2;  b=10;var  i: integer;  x,f,min,max: real;beginx:=a;min:=power(x,3/5);max:=min;for i:=a to b do  begin  x:=i;  f:=power(x,3/5);  writeln(f);  if f<min then min:=f;  if f>max then max:=f;  end;writeln('min=',min);writeln('max=',max);end.