RAZDEL_2

PROGRAM RAZDEL_2
REAL ARRAY_X(10), ARRAY_Y(10)
DO I = 1, 10
READ *, ARRAY_X(I), ARRAY_Y(I)
END DO
S_MAX = 0
DO I = 1, 10
DO J = 1, 10
DO K = 1, 10
ADX = ABS(ARRAY_X(I) - ARRAY_X(J))
ADY = ABS(ARRAY_Y(I) - ARRAY_Y(J))
BDX = ABS(ARRAY_X(J) - ARRAY_X(K))
BDY = ABS(ARRAY_Y(J) - ARRAY_Y(K))
CDX = ABS(ARRAY_X(K) - ARRAY_X(I))
CDY = ABS(ARRAY_Y(K) - ARRAY_Y(I))
A = SQRT(ADY**2 + ADX**2)
B = SQRT(BDY**2 + BDX**2)
C = SQRT(CDY**2 + CDX**2)
P = (A + B + C) / 2
S = SQRT(P*(P-A)*(P-B)*(P-C))
IF (S > S_MAX) S_MAX = S
END DO
END DO
END DO
PRINT *, S_MAX
END