l20:
PRINT"++++++++++++++++++++++++++++++"
PRINT"++programed by ayoub(FCINTER++"
PRINT"++++++++++++++++++++++++++++++"

PRINT"*********v1.0.0**********"

PRINT "                           //welcome//                          "

PRINT"Choose what to do?"

PRINT"Calculate acceleration <a> ----(1)"
PRINT"Calculate time <t>----(2)"
PRINT"Calculate finale speed <fs>----(3)"
PRINT"Calculate initial speed <is>----(4)"
PRINT"Calculate deplacement <d>----(5)"
INPUT"you choise is:"; c
IF c = 1 THEN
    INPUT"enter time (t)"; t
    INPUT"enter initial speed"; i
    INPUT"enter final speed"; f
    a = (F - I) / T

    PRINT "acceleration is"; a
    ELSEIF c = 2 THEN
    INPUT"enter initial  speed"; i1
    INPUT"enter final speed"; f1
    INPUT"enter acceleration"; a1
    T = (F1 - I1) / 2
    PRINT "time is "; T
    ELSEIF c = 3 THEN
    INPUT "enter initial speed"; i2
    INPUT "enter acceleration"; a2
    INPUT "enter time"; t2
    f2 = I2 + (A2 * T2)
    PRINT "the final speed is "; f2
    ELSEIF c = 4 THEN
    INPUT"enter final speed"; f3
    INPUT"enter acceleration"; a3
    INPUT "enter time"; t3
    i3 = F3 - (A3 * T3)
    PRINT " the initial speed is "; i3
    ELSEIF c = 5 THEN
    INPUT "enter initial speed"; i4
    INPUT "enter time "; t4
    INPUT "enter acceleration "; a4
    d = I4 * T4 + (0.5 * A4 * T4 ^ 2)
    PRINT "the displacement is "; d
    ELSE
    PRINT "please enter a right number "
    GOTO l20
END IF