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

Сравнить первое значение со вторым и одновременно с третьим значением.
Сравнить второе значение с первым и с третьим значением.
Сравнить третье значение со первым и со вторым.
На 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);
Данный кусок программы находит наибольшее из трёх значений.