Составить программу определения типа треугольника (равносторонний, равнобедренный, разносторонний) по заданным координатам его вершин на плоскости — QBasic(Бейсик)

INPUT "vvedite koordinaty tochki a ", x1, y1
INPUT "vvedite koordinaty tochki b ", x2, y2
INPUT "vvedite koordinaty tochki c ", x3, y3
d1 = SQR((x1 - x2) ^ 2 + (y1 - y2) ^ 2)
d2 = SQR((x1 - x3) ^ 2 + (y1 - y3) ^ 2)
d3 = SQR((x3 - x2) ^ 2 + (y3 - y2) ^ 2)
IF d1 = d2 THEN f = f + 1
IF d1 = d3 THEN f = f + 1
IF d2 = d3 THEN f = f + 1
IF f > 1 THEN PRINT "ravnostoronniy" ELSE IF f = 1 THEN PRINT "ravnobedrennyj" ELSE PRINT "raznostoronnij"