Procedura realizująca metodę środków kwadratów
### Ustalenie wartości początkowej
x=7645372856
y=c()
for (i in 1:10)
{
x=x^2
# otrzymujemy ciąg znaków
x=substr(x,6,15)
#zmiana formatu na liczbowy
x=as.numeric(x)
y=c(y,x/10^10)
}
#wyświetlenie wyników procedury
y