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

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