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

У вас уже есть таблица с данными можно создать 2 запроса с справочником где будет взаимодействие с вашей таблицей и не будет такого что в 13:00 преподователь ведет пары в разных классах делаете сперва 1 запрос на лекции где он делит их согласно вашим предпочтениям далее второй запрос практика где так же указываете данные из таблиц и запросов потом немножко корректируете все проверяете и сохраняете запрос и жмете выполнить должно получится что он поделит их согласно установленного расписания вами в определенные дни указанные вами 

PASCAL ABC

program z1;  

var a,s:integer;  //описание переменных

begin

readln(a);  //вводим первое число

s:=0;  //начальное значение суммы

while a<>0 do //условие ввода (ввод оканчивается нулем)

 begin

   if (a mod 10=4) and (a mod 6=0) then s:=s+a;  //проверка двух условий:                           первая скобка - оканчивается на 5, вторая - кратно 6

   readln(a) //заново вводим число

 end;

writeln(s)  //вывод суммы, когда весь цикл завершится

end.

P.S не особо понимаю, почему с таким вводом, такой ответ у тебя получается

1) Компьютер может служить как библиотекарь - он хранит всю информацию которую ты сохранил в нем.

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

3)В компьютере ты можешь писать книги, рассказы, информацию и многое другое.

4)Компьютер  заменяет и делопроизводителя.

5)Компьютер - так же и неплохой личный секретарь и день распланировать и многое другое.

6)Компьютер - отличный бугхалтер, вычислит все что надо и нужно.

7)в справочном бюро и расписание рейсов узнаешь.

9) в компьютере можно и слова переводить.

10) компьютер передаст все письма от твоих друзей. знакомых и родственников. Хороший почтальон.

11) на компьютере делают красивейшие рисунки и арты.

13) в компьютере можно создавать анимации и многое другое. Вообщем конструктор.

14) в компьютере ты можешь создать эскизы новой одежды, аксессуаров.

15) Также в компьюетере можно создавать эскизы новых зданий.

16)  в компьютере можно создавать дизайн одежды, домов, дизайн комнат.

17) на компьютере производят очень красивую музыку.

18) В компьютере можно узнать признаки разных болезней.

19) в компьютере ты можешь учиться и узнавать многое.

20) А сколько игр можно скачать на компьютор, кие только тебе по душе и по вкусу.

Некоторые профессии я не написала ибо не смогла придумать что написать, или от непонимания обязонностей профессии.