ПОЧЕМУ НЕ РАБОТАЮТ ЭТИ ПРОГРАММЫ Дано три целых числа. Минимальное из них присвоить дополнительной переменной и вывести результат, используя: логические выражения (с and/or) var a, b, c, min:integer; begin readln (a, b, c); if b>a and c>a then min:=a; if c>b and a>b then min:=b; if b>c and a>c then min:=c; writeln (min); end. Дано четыре целых числа. Максимальное из них присвоить дополнительной переменной и вывести результат, используя: логические выражения (с and/or) var a, b, c, d, max:integer; begin readln (a, b, c); if b>a and b>c and b>d then max:=b; if a>b and a>c and a>d then max:=a; if c>a and c>d and c>d then max:=c; if d>a and d>c and d>b then max:=d; writeln (min); end.