## Task 1.1
N <- 200
n <- 0:(N-1)

Fn  <- numeric(N)
Pn  <- numeric(N)
app <- rep(NA, N)
dif <- numeric(N)
acc <- integer(N)

Fn[1] <- 0
Fn[2] <- 1
Pn[1] <- 0
Pn[2] <- 1

real_sqrt2 <- sqrt(2)

print("All variables ready!")
ls()