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

Function Min(aa,bb : Integer) : Integer;Begin  Min:=(aa+bb) div 2 - abs(aa-bb) div 2;end;Var A,B,C : Integer;Begin  Write('Введите три числа: '); Readln(A,B,C);  Writeln('Минимальное число: ',Min(A,Min(B,C)));end.