Разброс. в отделе работает 4 сотрудника пользователь вводит заработную плату каждого, программа вычисляет , на сколько заработная плата самого высокооплачиваемого отличается от зарплаты самого низкооплачиваемого.составить программу в pascal.​

Формула Шенона: 2^I=N, где N - объём информации, I - количество бит.
I = [log_2 (N)]  - округление в большую сторону
1 байте = 8 бит.

Задача 1
Трижды запускается либо красная, либо зелёная ракета.
N = 2^3 = 8
ответ: 8

Задача 2
I = [log_2 (800)]  = [9.6438] = 10 бит на ученика
Объём 320 учащихся  = 320 * 10 = 3200 бит = 400 байт
ответ: 4

Задача 3
I = [log_2 (10+12+12)]  = [5.0875] = 6 бит на символ
6 * 11 = 66 бит = 8.25 байт ~= 9 байт
9 * 60 = 540 байт
ответ: 3

Задача 4
I = [log_2 (5*5)]  = [4.6439] = 5 бит на клетку
15 ходов + начальная позиция = 16 клеток
16 * 5 бит = 80 бит = 10 байт
ответ: 1

по нубски правдо очень проверить не забудь)

var
a,n,c:integer;
x,y:real;
begin
readln(a);
readln(n);
readln(c);
if ((a > n) and (n > c)) then begin
x:=(a+n)/2;
y:=(n+c)/2;
end else if((n > a) and (a > c)) then begin
x:=(a+n)/2;
y:=(a+c)/2;
end else if((c > a) and (a > n)) then begin
x:=(a+c)/2;
y:=(a+n)/2;
end else if((c > n) and (n > c)) then begin
x:=(c+n)/2;
y:=(n+c)/2;
end else if((n > c) and (c > a)) then begin
x:=(c+n)/2;
y:=(a+c)/2;
end else if((a > c) and (c > n)) then begin
x:=(c+a)/2;
y:=(n+c)/2;
end else if((c > n) and (n > a)) then begin
x:=(c+n)/2;
y:=(n+a)/2;
end;
write('наибольшее: ',x,' наименьшее: ',y);
end.