DECLARE SUB init ()
DIM SHARED tulud(1 TO 4)
DIM SHARED kulud(1 TO 4)

CLS
init

FOR a = 1 TO 4
  kogutulud = kogutulud + tulud(a)
  kogukulud = kogukulud + kulud(a)
NEXT a

kesktulu = kogutulud / 4
keskkulu = kogukulud / 4


PRINT "kogutulud:", kogutulud, kesktulu
PRINT "kogukulud:", kogukulud, keskkulu


FOR a = 1 TO 4
tuludeKoguH2lve = tuludeKoguH2lve + ABS(tulud(a) - kesktulu)
kuludeKoguH2lve = kuludeKoguH2lve + ABS(kulud(a) - keskkulu)
NEXT a

tuludeKeskH2lve = tuludeKoguH2lve / 4
kuludeKeskH2lve = kuludeKoguH2lve / 4


PRINT "Tulude koguh2lve:", tuludeKoguH2lve
PRINT "Kulude koguh2lve:", kuludeKoguH2lve

PRINT "Tulude keskh2lve:", tuludeKeskH2lve
PRINT "Kulude keskh2lve:", kuludeKeskH2lve

'--------------------------------------------------------------

FOR a = 1 TO 4
  b = b + (tulud(a) - ABS(kesktulu)) * (kulud(a) - ABS(keskkulu))
  c = c + (tulud(a) - ABS(kesktulu)) ^ 2
  d = d + (kulud(a) - ABS(keskkulu)) ^ 2
NEXT a

e = SQR(c * d)
f = b / e


PRINT f

SUB init

tulud(1) = 1
kulud(1) = 10

tulud(2) = 2
kulud(2) = 20

tulud(3) = 3
kulud(3) = 30

tulud(4) = 4
kulud(4) = 41


END SUB