Алгоритм нахождения меньшего из трех чисел

Question

Алгоритм нахождения меньшего из трех чисел

Answer 1

Var a, b, min: integer;
begin
readln (a, b);
if a < b then min:=a else min:=b;
readln (a);
if a < min then min:=a;
writeln('наим=', min)
end.

Answer 2

Вычитание?...
наверное..