Как выделить максимальное число используя метод сравнения из чисел a, b, c

Max = a if b > max then max = b if c > max then max = c или по-другому if (a> b) and (a> c) then max = a if (b> a) and (b> c) then max = b if (c> b) and (c> a) then max = c

Program pr3; const {убраны лишние описатели - чистая косметика}   a = 2.12;   b = 7.45;   h = 0.34; var   x, f1, f2, y, s: real;   i, n: integer; {описание, необходимое для цикла} begin   { x : = a; этот оператор не нужен }   s : = 0;   n : = trunc((b - a) / h)+1; {стандартная формула числа повторений цикла }   for i : = 1 to n do { заголовок цикла }   begin    {начало блока для выполнения в цикле }       x : = a + (i - 1) * h;   { перенесено из конца цикла }       f1 : = 3 * ln(exp(1 / 5) * ln(sin(x) + sqr(;       f2 : = ((2 * x + 1) / (x * x * x * x * x));       y : = f1 / f2;       s : = s + y;   end;   {конец блока для выполнения в цикле }   writeln('s=', s: 10: 5); end. тестовое решение: s=26390.53751

1.из условия «для кодирования секретного сообщения используются 12специальных значков-символов. при этом символы кодируются одним и тем же минимально возможным количеством бит. следует, что для кодирования используется алфавит, мощность которого равна n=12 (все символы алфавита равнозначны). тогда информационный вес символов одинаков и вычисляется по формуле хартли i=log212=4 бита. тогда информационный объем сообщения, согласно алфавитному подходу, измеряется по формуле v=i*k. значение i мы уже нашли, а k по условию равно 256.получаем: v=4 (бита)×256 (символов) =1024 (бита) = 128 (байта).2.всего используется 26 букв + 10 цифр = 36 символов для кодирования 36 вариантов необходимо использовать 6 бит, так как 2^5=32< 36< 2^6=64, т.е. пяти бит не хватит (они позволяют кодировать только 32 варианта), а шести уже достаточно таким образом, на каждый символ нужно 6 бит (минимально возможное количество бит).полный номер содержит 7 символов, каждый по 6 бит, поэтому на номер требуется 6 x 7 = 42 бита.по условию каждый номер кодируется целым числом байт (в каждом байте – 8 бит), поэтому требуется 6 байт на номер (5x8=40< 42< 6x8=48), пяти байтов не хватает, а шесть – минимально возможное количество на 20 номеров нужно выделить 20x6=120 байт. ответ: 120 байт.3. всего клеток 8х8 = 64. для кодирования 1 клетки необходимо 6 бит (2^6=64). в записи решения будет описано 12 клеток (11 ходов+начальная позиция). объем информации записи 12х6 = 72 бита = 72: 8 = 9 байт.ответ: 9 байт.4. 76 символов = 76 байт, 76 байт * 8 = 608 бит. ответ: 608 бит. 5. на один символ было 16 бит, стало 8, таким образом: 8x=16x-240, отсюда: x=30 символов6. 4096 = 1024⋅4, 16 бит = 2 байта, 8 бит = 1 байт было в unicode: 212 * 2 = 213 байт стало в windows-1251: 212 байт. объём файла уменьшился на 213 байт - 212 байт = 212 байт = 4 кбайта ответ: 4.