Найти периметр и площадь треугольника - QBasic

Формулировка задачи:

1) Заданы координаты трех вершин треугольника (x1, y1), (х2, y2), (x3, y3). Найти его периметр и площадь. 2) Написать программу, которая выводит на экран первые четыре степени числа пи. 3) Заданы два вектора с координатами (X1, Y1, Z1) и (Х2, Y2, Z2). Определить угол между векторами. Стыдно конечно, задачки простенькие, но я на qbasic полный ноль. Помогите пожалуйста. Спасибо.

Решение задачи: «Найти периметр и площадь треугольника»

Листинг программы

CLS
CONST pi = 3.141593
 
INPUT "x1,y1,z1 = "; x1, y1, z1
INPUT "x2,y2,z2 = "; x2, y2, z2
 
r1 = SQR(x1 ^ 2 + y1 ^ 2 + z1 ^ 2)
r2 = SQR(x2 ^ 2 + y2 ^ 2 + z2 ^ 2)
 
spv = x1 * x2 + y1 * y2 + z1 * z2
 
cosu = spv / (r1 * r2)
 
u = pi / 2 - ATN(cosu / SQR(1 - cosu ^ 2))
PRINT "U ="; u
END

Объяснение кода листинга программы

В данном коде выполняется последовательность действий:

Ввод данных о координатах вершин треугольника от пользователя.
Вычисление радиусов треугольника по формуле SQR(x^2 + y^2 + z^2).
Вычисление площади треугольника по формуле x1x2 + y1y2 + z1*z2.
Вычисление косинуса угла между векторами по формуле (x1x2 + y1y2 + z1z2) / (r1r2).
Вычисление угла между векторами по формуле arctan(косинус угла между векторами).
Вывод результата на экран.