подпрограммы и записи в паскаль

[AHGEJI]

помогите пожалуйста!
хотя бы саму процедуру и функцию и их вызов.

1) заданы окружность (x-a)^2+(y-b)^2=r^2 и две точки p={p1,p2} и f(f1,f2} вычислить сколько точек лежит внутри окружности. проверку принадлежности точки к окружности оформить в виде функции.
данные: а=3.2, в=4.1 r=2. p,f - произвольно.

2)вычислить Z= (s1+s2)/(k1*k2), где s1,k1 - сумма и кол-во положительных элементов массива Х(n), s2,k2 - сумма и кол-во положительных эл-тов массива Y(m). вычисления суммы и кол-ва положительных элементов массива оформить как процедуру.
данные произвольные.

3) задачка на записи:
для каждого студента указаны фамилия имя и оценки по 3м дисциплинам. требуется вычислить средний бал каждого студента и упорядочить список по убыванию среднего бала. вывод на экран оформить в виде таблицы.

здесь хотя бы сортировку!

[Last]

500 рублей, стучите 442195139.