DO
CLS
INPUT "ishem znachenie y=exp(x). vvedite x="; x
INPUT "vvedite stepen', do kotoroi schitaetsya ryad, n="; n
FOR i = 0 TO n
f& = 1
FOR j = 1 TO i
f& = f& * j
NEXT
sum = sum + x ^ i / f&
NEXT
PRINT "result="; sum
PRINT "calculate machine ="; EXP(x)
INPUT "povtorim? da-1, net-2  ", ask
LOOP UNTIL ask = 2
PRINT "Thank you for use the program"