Деление выполняется также как и в десятичной системе счисления, однако из-за того, что очередная цифра частного от деления может быть равна либо 0, либо 1, в двоичной системе деление наиболее простое
1.Начало
2.Встать
3.Собраться
4.Взять ключи и т.д
5Открыть дверь
6.Обуться
7.Закрыть все двери
8.Нажать на кнопку лифта
9Зайти в лифт
10.Выйти и идти в библиотеку
11.Придти
12.Выбрать книгу
13.Уйти
14.Идти домой
15.Конец
Знать бы, какой ввод данных
пусть он будет с клавиатуры, массив А из оценок N учеников
for i:=1 to N do begin
sum:=sum+A[i]; {это для среднего балла}
if (A[i]=4) or (A[i]=5) then
k1:=k1+1; {счетчик отличников-хорошистов}
if A[i]=2 then
k2:=k2+1; {счетчик двоечников}
end;
writeln('Количество учеников, написавших на 4 и 5: ', k1);
if k2>0 then
writeln('Двоечники есть')
else writeln('Двоечников нет');
writeln('Средний балл: ', sum/N:3:2);
end.