Определить минимум из 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.