помогите составить программы для первых 2-ух заданий безотлагательно (вариант 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;
begin
x:=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 flt;min then min:=f;
  if fgt;max then max:=f;
  end;
writeln('min=',min);
writeln('max=',max);
end.