Найти
максимальный  элемент и его номер в
последовательности в паскале

vark,i:integer;x,max:real;   begin      for k:=1 to 10 do         begin            if k mod 2 <>0 then                x:=k/(1+k)             else                x:=sqr(k)/(1+sqr(k));             if x>max then                begin                   max:=x;                     i:=k;                end;          end;writeln(max,'  N:  ',i);end.