Определить минимум из 3 введенных чисел. Если минимум отрицательное число, то найти сумму трех чисел, а иначе найти их произведение
В паскале 

Вроде такif a>b then begin min:=b; end else begin min:=a; end; if c>min then begin min:=min; end else begin min:=c; end;writeln('Наименьшее число ',min);if min<0 then beginx:=(a+b+c);end;writeln ('Сумма' , x ); if min>0 then begin x:=(a*b*c);end;writeln ('Произведение' , x );  end.