создать Блок схемы по нижеописанным заданиям

[folmest]

1.Rem Korobov
CLS
e=2.7
DEF fnth (x) = (e^2*x-1)/(e^2*x+1)
FOR x = -2 TO 2.2 STEP .2
PRINT "x="; x, "th(x)="; fnth(x)
NEXT

2.CLS
FOR i = 10 TO 300
a$ = STR$(i)
CALL prog(a$, i)
NEXT
SUB prog (a$, i)
FOR j = 1 TO 5
s = 0
FOR y = 2 TO LEN(a$)
s = s + (VAL(MID$(a$, y, 1))) ^ j
NEXT
IF s = i THEN PRINT i
NEXT
END SUB

3.CLS
n=5
DIM b(n)
CALL prog(b, n, max, k)
PRINT "popadanij:", "verojatnost:"
FOR i = 0 TO n
PRINT i, b(i)
NEXT
PRINT "max verojatnost:"; max, "kol-vo popadanij:"; k
SUB prog (b, n, max, k)
FOR m = 0 TO 5
a = m: CALL progf(a, f): x = 120 / f
a = n - m: CALL progf(a, f): x = x / f
x = x * (0.6 ^ m) * (0.4 ^ (n - m))
b(m) = x
IF x >= max THEN max = x: k = m
NEXT
END SUB
SUB progf (a, f)
f = 1: FOR i = 1 TO a
f = f * i
NEXT
END SUB