Question

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

Answer 1

Вроде так
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.