Distance travelled by a body using function

Distance travelled by a body using function procedure.

DECLARE FUNCTION DISTANCE(A,T,U)

CLS

INPUT"ENTER ACCELERATION";A

INPUT"ENTER TIME";T

INPUT"ENTER INITIAL VELOCITY";U

PRINT"DISTANCE TRAVALLED BY BODY";DISTANCE(A,T,U)

END

FUNCTION DISTANCE(A,T,U)

S=U*T+1/2*A*T^2

DISTANCE=S

END FUNCTION