Задачи по паскалю

[kseon]

1.(записи)Написать программу формирования ведомости об успеваемости студентов. Каждая запись этой ведомости должна содержать номер группы, фамилию студента, средний балл за последнюю сессию. Необходимо распечатать списки студентов по группам. В каждой труппе фамилии студентов разместить в порядке убывания среднего балла.
2.(файлы)Разработать программу формирования файла, содержащего сведения о студентах. Каждый элемент этого файла должен содержать следующие данные: номер группы; номер в группе по списку; фамилию, имя, отчество; год рождения; оценки за последнюю сессию.
3.(множества) Даны три множества XI {1, 2, 3, ..., 20}, Х2 = {10, 20, ..., 190, 200} и ХЗ = {10, 11, 12, ..., 40}. Сформировать множество Y = (Х2*ХЗ) \ ((Х1 * Х2) + (X1 * ХЗ)) и множество Y1, состоящее из элементов Y, деленных на 2. Если полученное в результате деления число не целое, то округлить его до ближайшего целого. На печать вывести Y и Y1. Исходные множества ввести с клавиатуры.(непонятно как работать с введённым множеством и как его потом вывести)

[Chudo4258]

непонятно как работать с введённым множеством

Y:= (Х2*ХЗ) \ ((Х1 * Х2) + (X1 * ХЗ))
y1:=[];
for i:=0 to 200 do
 if i in Y then Y1:=Y1+[round(i/2)];//не помню точно какая функция округления

как его потом вывести

for i:=0 to 200 do
 if i in Y then writeln(i);
for i:=0 to 100 do
 if i in Y1 then writeln(i);