QBasic Помогите сделать блок-схему

[You-Lol]

Пожалуйста Помогите сделать блок-схему!

PHP код:

DEFSNG E, R-S, X-Y
DEFINT F, I-K
OPTION BASE 1

RANDOMIZE TIMER
CLS
INPUT "Vvedite kolichestvo tochek N"; n
DIM x(N)
DIM y(N)

FOR i = 1 TO n
x(I) = 10 * RND
y(I) = 10 * RND
NEXT i

S0 = 0
X1 = x(1)
Y1 = y(1)
X2 = x(2)
Y2 = y(2)
x3 = x(3)
y3 = y(3)

FOR i = 1 TO n - 1
FOR j = i + 1 TO n
FOR k = j + 1 TO n
a = SQR((x(I) - x(J)) ^ 2 + (y(I) - y(J)) ^ 2)
b = SQR((x(J) - x(K)) ^ 2 + (y(J) - y(K)) ^ 2)
c = SQR((x(I) - x(K)) ^ 2 + (y(I) - y(K)) ^ 2)
IF (a + b) < c THEN PRINT "POSTROENIE TREUGOLNIKA NEVOZMOGNO"
IF (a + c) < b THEN PRINT "POSTROENIE TREUGOLNIKA NEVOZMOGNO"
IF (b + c) < a THEN PRINT "POSTROENIE TREUGOLNIKA NEVOZMOGNO"
P = (a + b + c) / 2
S = SQR(P * (P - a) * (P - b) * (P - c))
IF S0 < S THEN
S0 = S
X1 = x(I)
Y1 = y(I)
X2 = x(J)
Y2 = y(J)
x3 = x(K)
y3 = y(K)

END IF
NEXT K
NEXT j
NEXT i

K = 0
l = 0
FOR i = 1 TO n
K = K + FNN(X1, Y1, X2, Y2, x3, y3, x(I), y(I))
l = l + FNL(X1, Y1, X2, Y2, x3, y3, x(I), y(I))
NEXT i

IF ABS (k-3-l) <= 2 THEN

SCREEN 12
WINDOW SCREEN (-1, -1)-(11, 11)
LINE (0, 0)-(10, 10), 13, B

FOR i = 1 TO n
PSET (x(i), y(i)), 15
NEXT i

LINE (x1, y1)-(x2, y2), 11
LINE (x1, y1)-(x3, y3), 11
LINE (x2, y2)-(x3, y3), 11

PRINT "KOLICHESTVO TOCHEK VNUTRI =", k - 3
PRINT "KOLICHESTVO TOCHEK SNARUZHI =", l

END IF

END

FUNCTION FNF (x1, y1, x2, y2, x3, y3)
FNF = ABS((X2 - X1) * (Y3 - Y1) - (X3 - X1) * (Y2 - Y1)) / 2
END FUNCTION

FUNCTION FNN (x1, y1, x2, y2, x3, y3, x4, y4)
FNN = 0
s1 = FNF(X1, Y1, X2, Y2, X4, Y4)
s2 = FNF(X1, Y1, X3, Y3, X4, Y4)
s3 = FNF(X2, Y2, X3, Y3, X4, Y4)
s = FNF(X1, Y1, X2, Y2, X3, Y3)
IF (S1 + S2 + s3) <= S THEN FNN = 1
END FUNCTION

FUNCTION FNL (x1, y1, x2, y2, x3, y3, x4, y4)
FNL = 0
s1 = FNF(X1, Y1, X2, Y2, X4, Y4)
s2 = FNF(X1, Y1, X3, Y3, X4, Y4)
s3 = FNF(X2, Y2, X3, Y3, X4, Y4)
s = FNF(X1, Y1, X2, Y2, X3, Y3)
IF (S1 + S2 + S3) > S THEN FNL = 1
END FUNCTION 


[Smitt&Wesson]

Так помочь или сделать? Если помочь, выкладывайте свою. Если сделать за Вас, я могу взяться, но за денюжку.