Помогите пожалуйста решить 7 задач на Паскале.

[Ярик222]

Товарищи, собственно сабж.
Решите, пожалуйста, эти 7 задач (ну или хоть что-то), очень срочно нужно, а сам не разбираюсь в этом

1. type mes = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov,
dec);
day = 1..31;
var m1, m2: mes; k:1..maxint; n:1..12;
Присвоить переменной m1 название k-го месяца после месяца m.

2. type stroka = packed array [1..80] of char;
var s:stroka;
Известно, что в начале строки s находится не более 40 латинских букв, за которыми следуют пробелы. Напечатать эту строку, предварительно удалив первое вхождение w, если такое есть (образовавшуюся «дыру» заполнить последующими буквами, а в конец добавить пробел).

3. const n = 100;
vаr х:аrrау [1..n] of rеаl;
Упорядочить массив х по неубыванию, используя следующий алгоритм сортировки: сортировка вставками. Пусть первые и элементов массива уже упорядочены по неубыванию; берется (k+1 )-й элемент и размещается среди первых k элементов так, чтобы упорядоченными оказались уже k+1 первых элементов; этот метод применяется при k от 1 до n-1.

4. Создать массив записей, содержащих сведения о сотрудниках университета. Структура записи:
фамилия и инициалы работающего, год рождения;
название кафедры;
стаж работы, должность, оклад.
Количество записей произвольное.
Вывести на экран следующие данные: средний стаж работающих на кафедре X и список профессоров пенсионного возраста с указанием стажа работы.

5. var A,B: set of char; x:char;
Переменной B присвоить множество, полученное из A добавлением элемента x.

6. Даны отрезки a, b, c и d. Для каждой тройки этих отрезков, из которых можно построить треугольник напечатать площадь данного треугольника. Определить процедуру, печатающую площадь треугольника со сторонами x, y и z , если такой треугольник существует.

7. Два простых числа называются «близнецами», если они отличаются друг от друга на 2 (таковы, например, числа 41 и 43). Напечатать все пары близнецов из отрезка [n,2n], где n – заданное целое число, большее 2.

[maladoy]

вы здесь были?