Пример программы. {Определение максимального или минимального значения

Program Extremum;

{Определение максимального или минимального значения

с использованием структур "выбор" и "обход".

Вычислить x = max(min(a,b), max(c,d))}

Var

a,b,c,d:Integer; {исходные данные}

max,min:Integer; {промежуточные значения}

x:Integer; {результат вычисления}

Begin

{Ввод исходных данных}

WriteLn('Введите значения a,b,c,d: ');

ReadLn(a,b,c,d);

{Решение задачи с использованием структуры "Выбор"}

If a<b {Определяем наименьшее значение между a и b}

Then min:=a

Else min:=b;

If c>d {Определяем наибольшее значение между c и d}

Then max:=c

Else max:=d;

If min>max {Определяем наибольшее значение между max и min}

Then x:=min

Else x:=max;

{Вывод результата решения с использованием структуры "Выбор"}

WriteLn('Использование структуры "Выбор": x = ',x);

{Решение задачи с использованием структуры "Обход"}

min:=a; {Определяем наименьшее значение между a и b}

If min>b

Then min:=b;

max:=c; {Определяем наибольшее значение между c и d}

If max<d

Then max:=d;

x:=min; {Определяем наибольшее значение между max и min}

If x<max

Then x:=max;

{Вывод результата решения с использованием структуры "Обход"}

WriteLn('Использование структуры "Обход": x = ',x);

ReadLn;

End.