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

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.