Дан треугольник со сторонами a, b, c. Составить программу определения типов углов альфа, бета, гамма (прямой, тупой, острый), лежащих против этих сторон — QBasic(Бейсик)

INPUT "vvedite storony treugolnika ", a, b, c
m = (b ^ 2 + c ^ 2 - a ^ 2) / (2 * b * c)
PRINT "ugol alfa ";
IF m < .000001 THEN PRINT "pryamoy" ELSE IF m < 0 THEN PRINT "tupoy" ELSE PRINT "ostryj"
m = (a ^ 2 + c ^ 2 - b ^ 2) / (2 * a * c)
PRINT "ugol beta ";
IF m < .000001 THEN PRINT "pryamoy" ELSE IF m < 0 THEN PRINT "tupoy" ELSE PRINT "ostryj"
m = (a ^ 2 + b ^ 2 - c ^ 2) / (2 * a * b)
PRINT "ugol gamma ";
IF m < .000001 THEN PRINT "pryamoy" ELSE IF m < 0 THEN PRINT "tupoy" ELSE PRINT "ostryj"