Программы в паскале

1-
2)Введите два вещественных числа. Напечатайте коэффициенты приведенного квадратного уравнения, корнями которого являются эти числа.

3)Определить, есть ли среди цифр заданного целого трёхзначного числа одинаковые.

4)Пусть дано натуральное число n. Выбросите из записи этого числа цифры 3 и 7, оставив прежним порядок остальных цифр. Например, из числа 3171507377 должно получиться 1150.

5)С клавиатуры вводится строка, состоящая из слов, разделенных пробелами (пробелов может быть несколько). Инвертировать (т. е. записать наоборот) все четные слова в этой строке.

6)Осуществить циклический сдвиг компонент заданного вектора A(N) вправо на две позиции, то есть получить вектор A = (aN -1 , aN , a1 , a2 , .aN -2 ) .

7)Найти площадь фигуры которая образуется двумя квадратами. Внешний со стороной А и внутренним со стороной а, используя поцедуру вычисления площади квадрата.

8)Рекуррентное соотношение
x{i-1} a
x{i} = ------+-------x{1} = 1, a>0
2 2x{i-1}
можно использовать для быстрого вычисления квадратного корня из a,
так как элементы последовательности при увеличении i очень быстро
приближаются к корню из a. Для a=2 начало этой последовательности
выглядит так
a{1} = 1
a{2} = 1.5
a{3} = 1.4166666667
a{4} = 1.4142156863
a{5} = 1.4142135624
a{6} = 1.4142135624
Составьте программу вычисления квадратного корня.

9)Известны сведения о высоте над уровнем моря 15-ти горных вершин. Все значения выражены в метрах. Напечатать названия вершин, чья высота превышает 3000 м над уровнем моря.

10) Delphi
Организовать файл целых чисел из N компонент. Удалить из файла все отрицательные компоненты. Вывести содержимое файла до обработки и после обработки.