Помогите пожалуйста в паскале. Составьте программу для нахождения произведения двух наименьших из трёх различных чисел.
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.