Люди ! Выполни задание. Редактируй программу используя операторы ввода и вывода с комментариями. Найди значение переменных a ,x, y с трассировочной таблицы. Program yy; Var x,y,a : integer; Begin x:= 336; y:= 8; x:=x div y; y:= x mod y; x:=x+y; a:= x-4; end

Program ex; // функция для определения из двух чисел минимальное function min(a, b: real): real; begin       if (a > b) then min : = b else min : = a end; // функция для определения из двух чисел максимальное function max2(a, b: real): real; begin       if (a > b) then max2 : = a else max2 : = b end; // функция для определения из трех чисел максимальное function max3(a, b, c: real): real; begin       // сначала определяем максимальное из первых двух чисел,       // затем у нас останется два числа и нам остается определить       // максимальное из них       max3 : = max2(max2(a, b), c); end; var       x, y, z, d, max_int: real; begin       writeln('введите 4 числа');       readln(x, y, z, d);       max_int : = max3(min(x, y), min(x, z), min(z, d));       writeln(max_int); end.