нужно сделать 2 задачи в delphi 7

[Poma][a]

Кажется Вы забыли инициализировать sumin..

p:=a[imin];

Получим p = a[imin]^2 * a[imin+1] * ... * a[imax]

function TForm1.c: char;
begin;
 if 5>0 then Result:='>' else
   if 5<0 then Result:='<' else Result:='=';
end;

Интересно, а можно что-то придумать с case of'ом?
Тоесть :

a := a - b;
case of a 
          : Result := '<';
          : Result := '>';
       0 : Result := '='

Есть идеи?

[Stilet]

Вы забыли инициализировать sumin..

Ну я там много чего забыл, но мне интересно даст ли это автору пищу для раздумий или пойдет full copypaste?