Помогите с алгоритмом!

Дано: массивы X[1..N], Y[1..N] хранящие координаты точек
Присвоить m = 0
Присвоить t1=0
Присвоить t2=0
Присвоить t3=0
Цикл для k1 от 1 до N-2 Цикл для k2 от k1+1 до N-1 Цикл для k3 от k2+1 до N
Присвоить AB=корень ((X[k2]-X[k1])^2+Y[k2]-Y[k1])^2)
Присвоить AC=корень ((X[k3]-X[k1])^2+Y[k3]-Y[k1])^2)
Присвоить BC=корень ((X[k3]-X[k2])^2+Y[k3]-Y[k2])^2)
Присвоить a=arccos((AB^2+AC^2-BC^2)/(2*AC*AB))
Присвоить b=arccos((AB^2+BC^2-AC^2)/(2*AB*BC))
Присвоить c=arccos((AC^2+BC^2-AB^2)/(2*AC*BC))
Если a>m тогда присвоить m=a, t1=k1, t2=k2, t3=k3
Если b>m тогда присвоить m=b, t1=k1, t2=k2, t3=k3
Если c>m тогда присвоить m=c, t1=k1, t2=k2, t3=k3
Конец всех циклов
Печать t1, t2, t3
P.S. не во всех языках программирования есть функция арккосинуса, в этом случае можно написать свою функцию арккосинуса, выраженную через арктангенс по известной формуле