<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
begin
var a,b,c:real;
Write('Введите a,b,c: '); Read(a,b,c);
Writeln(min(c,max(a,b)))
end.
<u>Пример</u>
Введите a,b,c: 8.2 -0.1 1.2
1.2
Предлагаю пример в Excel
Копируете необходимый элемент, задаете параметры на входе, получаете таблицу истинности на выходе.
11001100 = М
11010011 = У
11001010 = К