Задание

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

Begin

Read(a,b,c);

if (a<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<m1) Then

Begin m1:=b; m2:=a end;

if (c<m2) and (c>m1) Then

m2:=c;

P:=m1*m2;

Write('Произведение 2х наименьших=',P)

end.