1. Написать программу, которая позволит ввести число типа unsigned short int с клавиатуры, напечатать его и, используя битовые
операции, сделать в нем, чтобы 4 и 5 биты были равны 1, а остальные
сохранили свои значения и вывести результат.
Указание: Какому числу будет кратен результат, если 3, 2, 1, 0 биты будут
установлены в , 1 курс, пока что не шарю вообще.

2. Написать программу, которая позволит ввести число типа
unsigned int с клавиатуры, напечатать его на консоли, используя битовые
операции сделать в нем преобразование бит N[i]=N[i-1], N[i-1]=N[i], i=1, 3, 5,
7 и вести результат , на 1 курсе только!

Во-первых, если загрузить эту программу в паскаль то ничего не выведется т.к. тут допущены ошибки, вот как правильно:
Var a,b,c:integer;begina:=-15;b:=-a;
c:=b mod 2;Writeln('c=',c);end.
в программе выводится остаток деления числа b на число c
но если тебе нужно оставить действие a:=a*2+1 тогда ты должен добавить ещё одну переменную и в таком случае b будет равнять не -а, а минус эта самая переменная. я обозначила эту переменную n, вот что получается
Var a,b,c,n:integer;begina:=-15;n:=-a*2+1;b:=-n;c:=n mod 2;Writeln('c=',c);end.

Свойства алгоритма: 
1. Дискретность. Это свойство состоит в том, что алгоритм должен представлять процесс решения задачи как последовательное выполнение простых шагов. При этом для выполнения каждого шага алгоритма требуется конечный отрезок времени, т. е. преобразование исходных данных в результат осуществляется во времени дискретно.

2. Определенность. Каждое правило алгоритма должно быть четким, однозначным.

3. Результативность. Алгоритм должен приводить к решению за конечное число шагов.

4. Массовость. Алгоритм решения задачи разрабатывается в общем виде, т. е. он должен быть применим для некоторого класса задач, различающихся лишь исходными данными.

5. Правильность. Алгоритм правильный, если его выполнение дает правильные результаты решения поставленной задачи.

Эта фраза означает: момент, когда нет условия выхода из цикла или используется вечный цикл (например, while(true) ).