Помогите решить задачки...

Тема: Численные типы. Операторы присваивания.

Задача №1
Целой переменной S присвоить сумму чисел трехзначного числа K

Задача №2
Записать на Паскале отношение, истинное при выполнении указанного условия и ложное в противном случае:
Уравнение AХ2 + BX + C (A не равно 0) не имеет вещественных корней.

Тема: Простейшие программы.

Задача №3
Написать программу для решения задачи:
По координатам трёх вершин некоторого треугольника найти его S(площадь) и P (периметр).

Тема: Операторы условий.

Задача №4
Написать программу для решения задачи:
Даны числа: A1, B1, C1, A2, В2, С2. Написать координаты точки пересечения прямых, описанных уравнениями:
A1X + В1Y = С1
A2X + В2Y = С2
Либо сообщить, что прямые совпадают, не пересекаются или не существуют.

Задача №5
Дано целое N > 2 напечатать все простые числа в диапазоне [2, N].

Тема: Литерный тип.

Задача№6
Дана непустая последовательность непустых слов из латинских букв, соседние слова отделены друг от друга запятой, за последним словом точка.
Определить количество слов, которые начинаются и заканчиваются одной и той же буквой.

Тема: Перечислительные и органические типы.

Задача№7
Var: y: 1901…2000; m: месяц; {type месяц = (январь, февраль, март, апрель, май, июнь, июль, август, сентябрь, октябрь, ноябрь, декабрь)}

d: 1…31;
t: Boolean

Переменной t присвоить значение true, если тройка y, m, d образуют правильную(существующую) дату и значение false, если нет.

Тема: Регулярные типы.

Задача№8
Дано 50 чисел. Определить сколько среди них отличных от последнего.

Тема: Регулярные типы. Матрицы.

Задача №9
Дана вещественная матрица размером 20х30. Упорядочить строки по неубыванию из первых элементов.

Тема: Регулярные типы. Строки.

Задача №10
Type строка = packed array [1…80] of char;
Var S: строка;

В начале строки S не более 40 латинских букв, за которыми следуют пробелы.
Напечатать строку преобразовав её: все вхождения abc заменить на def.