Бейсик.Процедуры и функции

[Mina94]

Если я не ошибаюсь надо отдельно два кода,один для процедуры,второй для функции, с процедурой проблем у меня нету,а вот с функцией

[ZX Spectrum-128]

Declare Function Summa (x As Double, m As Integer) As Double
Dim a As Double
Dim n As Integer

Input (a)
Input (n)

Print Summa (a,n) 
Sleep

Function Summa(x As Double, m As Integer) As Double
Dim sum As Double
Dim i As Integer

sum=0  	
For i=1 To m
  sum=sum+1/x^i	
Next
Return sum
End Function