Определить минимум из 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 begin x:=(a+b+c); end; writeln ('Сумма' , x );  if min>0 then begin  x:=(a*b*c); end; writeln ('Произведение' , x );  end.