Даны m, n, k. Найти a = min(m+n+k, mnk)   надо решить в паскале(условный оператор)

Вопрос от посетителя:

Даны m, n, k. Найти a = min(m+n+k, mnk)

 

надо решить в паскале(условный оператор)

Илюха отвечает:

var

a,m,n,k:real;

begin

readln(m,n,k);

if (m+n+k)<(m*n*k) then 

a:=m+n+k

else

a:=m*n*k;

writeln(a);

end.