Мне через паскаль: разработать схему алгоритма для определения минимума из трёх чисел без использования логических операций. протестировать алгоритм на следующих исходных данных: а) 2 5 1 б) 0 -2 8 в) -4 5 10

Решение твоей задачки^^

{Рабочая программа. Решение основано на определении модуля числа}
var
  a, b, c, d: integer;
begin
  read(a, b, c);
  d := (a + b - abs(a - b)) div 2;
  writeln((d + c - abs(d - c)) div 2);
end.