Решить задачи в Pascal

Структуры

Сведения о международном телефонном разговоре состоят из даты, шифра города (3 цифры), продолжительности разговора (в минутах) и тарифа (плата за 1 минуту). Дан набор таких сведений:

1. Город(а) с которым(и) в марте разговаривали больше всего;
2. Упорядочить города по убыванию суммарной стоимости разговора.

Ветвление

Даны действительные положительные числа a, b, c, d. Выяснить, можно ли прямоугольник со сторонами a, b уместить внутри прямоугольника со сторонами c, d так, чтобы каждая из сторон одного прямоугольника была пероральна или перепедикулярна каждой стороне второго прямоугольника.  

Циклы

Даны действительные числа a₁, …, a_n. Найти самый длинный отрезок данной последовательности.

Строки

Даны натуральное число n символ s (n≤1000, s – одна из букв и, р, д, в, т, п, указывающая падеж – именительный. Родительный, дательный, винительный, творительный, предложный). Записать количественное числительное, обозначающее n, в соответствующем падеже.

Списки

Предполагается, что уже построен и задан указателем P связанный двусторонний список с элементами – целыми числами.

1. Заданное значение включить в список в качестве 1-го элемента;
2. Удалить из списка последний элемент;
3. Напечатать значения элементов списка в порядке, обратном их расположению в списке, не меняя сам список.

Подпрограммы

Методом Симпсона получить значение ффункции Ф(х) в точках 0,0.1,0.2, …, 1

Для вычисления интеграла используется приближенная формула – формула Симпсона 

,где В программе предусмотреть подпрограмму функцию для вычисления подынтегральной функции и подпрограмму для вычисления значния интеграла по формуле Симпсона