Организация программ с использованием процедур и функций

FUNCTION Radius(x1 AS DOUBLE,x2 AS DOUBLE,x3 AS DOUBLE,y1 AS DOUBLE,y2 AS DOUBLE,y3 AS DOUBLE)AS DOUBLE
DIM AS DOUBLE a,b,c,S 
   a=ABS(SQR((x1-x2)^2+(y1-y2)^2))
   b=ABS(SQR((x2-x3)^2+(y2-y3)^2))
   c=ABS(SQR((x1-x3)^2+(y1-y3)^2))
   S=ABS(((x1-x3)*(y2-y3)-(x2-x3)*(y1-y3)))
   Radius=a*b*c/4*S
END FUNCTION 
DIM AS DOUBLE x1,x2,x3,y1,y2,y3,R
DIM i AS INTEGER
FOR i=1 TO 2 STEP 1 
   PRINT "Координаты ",i," треугольника"
   PRINT "(x1,y1)= "
      INPUT x1,y1
   PRINT "(x2,y2)= "
      INPUT x2,y2
   PRINT "(x3,y3)= "
      INPUT x3,y3
   R=Radius(x1,x2,x3,y1,y2,y3) 
   PRINT "Радиус описанной окружности= ", R
NEXT 
SLEEP

SUB Radius(x1 AS DOUBLE,x2 AS DOUBLE,x3 AS DOUBLE,y1 AS DOUBLE,y2 AS DOUBLE,y3 AS DOUBLE,R AS DOUBLE)
DIM AS DOUBLE a,b,c,S 
   a=ABS(SQR((x1-x2)^2+(y1-y2)^2))
   b=ABS(SQR((x2-x3)^2+(y2-y3)^2))
   c=ABS(SQR((x1-x3)^2+(y1-y3)^2))
   S=ABS(((x1-x3)*(y2-y3)-(x2-x3)*(y1-y3)))
   R=a*b*c/4*S
END SUB
DIM AS DOUBLE x1,x2,x3,y1,y2,y3,R 
DIM i AS INTEGER
FOR i=1 TO 2 STEP 1 
   PRINT "Координата ",i,"треугольника"
   PRINT "(x1,y1)= "
    INPUT x1,y1
   PRINT "(x2,y2)= "
    INPUT x2,y2
   PRINT "(x3,y3)= "
    INPUT x3,y3
Radius(x1,x2,x3,y1,y2,y3,R)
PRINT "Радиус описанной окружности= ",R 
NEXT 
SLEEP