Написать программу на любом языке программирования по этой схеме

Const   n=5; var   m: array[1..n] of byte; function itog(): real; var   i,max,min,s: byte; begin   s: =m[1]; max: =s; min: =s;   for i: =2 to n do begin       s: =s+m[i];       if max< m[i] then max: =m[i]       else           if min> m[i] then min: =m[i]   end;   s: =s-max-min;   itog: =s/(n-2) end; var   i: byte; begin   writeln('введите экспертные оценки');   for i: =1 to n do read(m[i]);   writeln('итоговый равен ',itog: 4: 2) end. тестовое решение: введите экспертные оценки 4 4 5 3 5 итоговый равен 4.33

Var   i: integer;   f,n: longint;   fr: real; begin   write('n='); read(n);   if n< =12 then begin       f: =1;       for i: =2 to n do f: =f*i;       writeln('f=',f)   end   else begin       fr: =1;       for i: =2 to n do fr: =fr*i;       writeln('f=',fr)   end end. тестовые решения: n=12 f=479001600 n=13 f=6227020800 n=20 f=2.43290200817664e+18