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

• Begin
• Read\(a,b,c\);
• if \(a\\lt b\) Then
• Write\('Введите 3 различных числа через пробел '\);
• Var a,b,c,m1,m2,P : real;
• Begin
• m1:=a; m2:=b
• end
• else
• Begin
• m2:=m1; m1:=c
• end;
• if \(c\\lt m1\) Then
• Begin m1:=b; m2:=a end;
• if \(c\\lt m2\) and \(c\\gt m1\) Then
• m2:=c;
• P:=m1*m2;
• Write\('Произведение 2х наименьших=',P\)
• end.