Впаскале. составьте программу для нахождения произведения двух наименьших из трёх различных чисел.

Var  a,b,c,mx: integer;  p: real;begin  readln (a,b,c);  mx:=a;  if mx<b then mx:=b;  if mx<c then mx:=c;  p:=(a*b*c)/mx;  write(p);end.