Найти наибольшее из 3-х чисел. и если можно, то разжуйте, : )

Var
    a, b, c: real;

begin
    readln(a, b, c);
    if a < b then a := b;
    if a < c then a := c;
    writeln(a);
end.

поскольку сохранять числа не надо, то мы жертвуем теми, что нам не нужны
изначально решаем что А будет самым большим. Если А меньше второго числа, то присваиваем значение второго числа А. Аналогично с третьим.
В конце выводим А

Объяснение:

Из задания не совсем ясно, необходимо ли в программе производить ввод массиве, если нет, то решение следующее:

# Максимальный элемент массива

_max = max(d)

# Порядковый номер элемента

_index = d.index(_max)

# Вывод

print(_max, _index)

Если запрещено использовать встроенные функции, то:

# первый элемент - максимальный

_max = d[0]

_index = 0

# Цикл по всем элементам

for i, x in enumerate(d):

# Если элемент больше максимального

if x > _max:

_max = x

_index = i

# Вывод

print(_max, _index)

Если необходимо произвести и ввод, то в начале задачи надо дописать:

n = input('Введите n: ')

d = []

for x in range(n):

d.append(input('Введите число: '))

1)            находим количество пикселей, используя для вычисления степени числа 2: n  = 512 · 256 = 29  · 28  = 217 2)            объём файла в  кбайтах  64 = 26 3)            объём файла в битах  26    · 213  = 219 4)            глубина кодирования (количество битов, выделяемых на 1 пиксель): 219  :   217  = 22  = 4 бита на пиксель 5)            максимальное возможное количество  цветов 24  = 16 6)            ответ:   16.