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

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

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.