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

Сравнить первое значение со вторым и одновременно с третьим значением. Сравнить второе значение с первым и с третьим значением. Сравнить третье значение со первым и со вторым. На Pascal это будет выглядеть так: if (a>b) and (a>c) then writeln (a); if (b>a) and (b>c) then writeln (b); if (c>a) and (c>b) then writeln (c); Данный кусок программы находит наибольшее из трех значений.