'                    ****home work 1****
'                    **** Reading data ****
CLS
INPUT "Enter number of points:", n
FOR i = 1 TO n
 PRINT "Enter x"; i; " and f"; i;
 INPUT " :", X(i), f(i, 0)
NEXT
INPUT "x:", X

'                    **** Computin coefficients ****

FOR j = 1 TO n - 1
 FOR i = 1 TO n - j
  f(i, j) = (f(i + 1, j - 1) - f(i, j - 1)) / (X(i + j) - X(i))
 NEXT
NEXT

'                    ***** Computing function ****
'                             for given X

a = 1
s = f(1, 0)
FOR i = 1 TO n
 a = (X - X(i)) * a
 s = s + f(1, i) * a
NEXT
PRINT "f("; X; ")="; s