Помогите написать программу последовательности для turbo paskal

[asd]

На доске выписана последовательность квадратов целых чисел без пробелов начиная с единицы:1 4 9 16 25 36 49 64 81 100... . Наядите n-ую цифру в этой последовательности
Формат входных данных файла задается  n(1<=n<=1000 000)
формат выходных данных
Выведите на задачу

[asd]

PLZ народ реально нужно!!!!Помогите от этого зависит мое будущее если так можно сказать)

[testtest]

а какие ограничения на время работы и объем памяти?

[asd]

2 секунды
64 мегабайт
если поможешь буду признателен

[testtest]

рекомендую создать файл, содержащий нужную последовательность, и искать уже в нем.
файл весит 1000005 байт