Вычислить периметр треугольника и площади,если даны координаты вершин (x1;y1)(x2;y2)(x3;y3)- QBasic(Бейсик)

INPUT "vvedite koordinaty  x 1 tochki ", x1
INPUT "vvedite koordinaty  y 1 tochki ", y1
INPUT "vvedite koordinaty  x 2 tochki ", x2
INPUT "vvedite koordinaty  y 2 tochki ", y2
INPUT "vvedite koordinaty  x 3 tochki ", x3
INPUT "vvedite koordinaty  y 3 tochki ", y3
d1 = SQR((x1 - x2) ^ 2 + (y1 - y2) ^ 2)
d2 = SQR((x1 - x3) ^ 2 + (y1 - y3) ^ 2)
d3 = SQR((x2 - x3) ^ 2 + (y2 - y3) ^ 2)
p = d1 + d2 + d3
s = SQR(p / 2 * (p / 2 - d1) * (p / 2 - d2) * (p / 2 - d3))
PRINT "perimetr="; p
PRINT "ploshad="; s