Program If12;
Var
A,B,C:Real;
Begin
WriteLn('Введите числa A,B и C: ');
ReadLn(A,B,C);
If (A < B) And (A < C) Then
WriteLn('Min = ',A)
Else
If (B < A) And (B < C) Then
WriteLn('Min = ',B)
Else
WriteLn('Min = ',C); 
End.