Написать программу, которая по заданным четырем значениям находит max (min (a, b), min (c, d))

program zz1;

var a, b, c, d, max, min1, min2:integer; / /задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

write (' введите третье число '); / / вводим с клавиатуры третье число

read (c);

write (' введите четвертое число '); / / вводим с клавиатуры четвертое число

read (d);

if (a < b) then min1:=a;

if (b < a) then min1:=b;

if (c < d) then min2:=c;

if (d < c) then min2:=d;

if (min1 > min2) then max:=min1;

if (min2 > min1) then max:=min2;

writeln (' полученный ответ = ', max); / / выводим ответ

end.