Постройте изомеры к 2,4,4 - триметилпентану и 2,2 - диэтилгексену

program approximation; var  m: array[1..40] of real; s,v: real; i,k: integer; begin  s: =0;   for i : = 1 to 40 do   begin       write ('введите ',i,'-й элемент массива');         readln(m[i]);       s: =s+m[i];   end;   s: =s/40;   v: =m[1]-s;   for i : = 2 to 40 do   begin      if (v< (m[i]-s)) then       begin              v: =m[i]-s;               k: =i;       end;   end;   writeln (k,'-й элемент наименее отличается от среднего  ',s);   end; end.