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