турбо паскаль

[Degster]

1)дано два множества точек.Найти пересечение и разность этих множеств.Координаты точек X и Y вводить с клавиатуры.
2)вывести фамилии,имена и отчества всех студентов мужского пола,не сдавших более двух экзаменов(предметы:физика,математик а и информатика)
3)а)определить радиус и центр окружности,на которой лежит наибольшее число точек заданного на плоскости множества точек
б)если к сумме цифр двузначного числа прибавить квадрат этой суммы,то снова получится это двузначное число.найти все такие числа.

помогите с курсовой

[unbanned]

3) б)

for i:=10 to 99 do
if (((i div 10)+(i mod 10) + sqr((i div10)+(i mod 10)))=i) then writeln(i);