На соревнованиях выступление спортсмена оценивают 5 экспертов, каждый из них выставляет оценку в (целое число). для получения итоговой оценки лучшая и худшая из оценок экспертов отбрасываются, а для оставшихся трёх находится среднее арифметическое. напишите программу, которая принимает 5 оценок экспертов и возвращает итоговую оценку спортсмена. используйте функцию для вычисления итоговой оценки. паскаль

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

программа на паскале:

program xxx;

      var a, b: real;

begin

  writeln('введите количество миль');

  readln(a);

  b: = a*1.6;

  writeln('кол-во киллометров - ',b)

end.