t_16_30_B_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
описать рекурсивную функцию, которая находит максимальный элемент списка L}
type list=^chain;
     chain=record elem:real; next:list end;
function max(L:list):real;
    function max2(a,b:real):real;
         begin
               if a>=b then max:=a else max2:=b;
         end;
    begin
         if L^.next<>nil then max:=max2(L^elem,max(L^.next))
         else max:=L^.elem;
    end;