Написать программу на языке паскаль. условие: если значение переменной х< 0, то вычислить квадрат переменной х, иначе значение х уменьшить в 2 раза.

Pascal abc
Программа во вложении

Целесообразно архивировать только те данные, которые:
 - Сложно или невозможно восстановить (например, фотографии с фотоаппарата, которых на нём уже нет, то есть в случае их утраты восстановить их будет уже неоткуда)
 - Могут пригодиться в будущем (например, различные старые записи, личная электронная библиотека)
 - Файлы операционной системы (для последующего восстановления операционной системы в случае её краха)
 - Слишком долго восстанавливать (например, скачанные фильмы вроде как не особо нужны, но повторно качать их долго, так что может иметь смысл создать резервную копию)

Формула Шеннона: I=log2 N  (I-кол-во инф-ции; N=всё/нужное)

обозначение:
ч - кол-во четвёрок
т - кол-во троек
д - количество двоек
пятёрок нет

по условию   т+д=22
не провалившиеся = ч+22  > log2 3=log2 ((ч+22)/(ч+т))

инф-ный объём сообщения, что тройка = 2 битам  >
   2=log2 ((ч+22)/т)

Имеем систему трёх уравнений с тремя неизвестными:
т+д=22
log2 3=log2 ((ч+22)/(ч+т))
2=log2 ((ч+22)/т)                                >log2 4=log2 ((ч+22)/т)
       Преобразуем:   
система:
т+д=22
3=(ч+22)/(ч+т)
4=(ч+22)/т        >   ч+22=4т

т+д=22
3ч+3т=ч+22
4т=ч+22

т+д=22
3ч+3т=4т
4т=ч+22

т+д=22
3ч=т
12ч=ч+22

т+д=22
3ч=т
ч=2

ч=2                   т=3ч=6                    д=22-6=16
всего:   2+6+16=24  абитуриента
         ответ  24