Помогите решить 2 задачи по паскальАБС

[Elekans]

1.Даны действительные числа a,b,c. Если сумма минимального и максимального из них меньше 5, то максимальное число заменить нулем, в противном случае заменить минимальное число произведением двух остальных.
2.найти сумму ряда с точностью e=0,02, общий член которого a(n)=(n^sqrt(n))/n!

[newerow1989]

var a,b,c,s:real;
    p:array[1..3] of real;
    i,imin,imax:integer;
begin
   Write('a = ');Readln(a);
   Write('b = ');Readln(b);
   Write('c = ');Readln(c);
   p[1]:=a;
   p[2]:=b;
   p[3]:=c;
   imin:=1;
   For i:=2 to 3 do
      If p[imin]>p[i] then
         imin:=i;
   imax:=1;
   For i:=2 to 3 do
      If p[imax]<p[i] then
         imax:=i;
   s:=p[imin]+p[imax];
   If s<5 then
      p[imax]:=0 else
   begin
      s:=1;
      For i:=1 to 3 do
         If i<>imin then
            s:=s*p[i];
      p[imin]:=s;
   end;
   a:=p[1];
   b:=p[2];
   c:=p[3];
   Writeln('a = ',a:5:5);
   Writeln('b = ',b:5:5);
   Writeln('c = ',c:5:5);
   Readln;
end.

uses Math;

const e=0.02;
var a,a1:real;
    n,fac:integer;
begin
   a:=0;
   n:=0;
   fac:=1;
   Repeat
      n:=n+1;
      fac:=fac*n;
      a1:=Power(n,Sqrt(n))/fac;
      a:=a+a1;
   Until a1<e;
   Writeln('a = ',a:5:5);
   Readln;
end.