Тема 7. Создание анимации Содержание
1. Виды анимации
2. Расширения
3. Стандарты форматов представления анимации
4. Основные термины, используемые при работе с анимацией создания анимации
6. Программное обеспечение обработки анимационного контента
1. Flash-анимация
2. Интерфейс программы AdobeFlash
3. Основные элементы
Инструменты Pensil (карандаш), Line (линия), Oval (овал), Rectangle (прямоугольник), PaintBucket (заливка), Arrow (стрелка), Pen (перо), Eraser (ластик), Brush (кисть)
Контуры, обводка
Выделение объекта, удаление объекта
Координатная линейка, направляющие, сетка
Трансформация
Зеркальное отражение объектов (Flipping)
Использование инструментов рисования при создании баннера
Создание анимации с использованием инструментов программы AdobeFlash
Градиентная заливка
Вычитание и объединение контуров
Инструмент Lasso (лассо)
Работа с текстом

Не особо знаю паскаль, так что дабы не накосячить с синтаксисом, покажу на примере. Тут всё просто - тебе лишь нужен цикл For и расчет процентов.

FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.  

CLS
DIM n AS INTEGER
INPUT "Введите кол-во студентов:", n

DIM studentYearsOld(1 TO n) AS INTEGER
DIM studentName(1 TO n) AS STRING

FOR i = 1 TO n
INPUT "Введите имя студента:", studentName(i)
INPUT "Введите год рождения студента:", studentYearsOld(i)
NEXT i
PRINT
FOR i = 1 TO n
PRINT "Студент "; studentName(i)
studentYrs = 2016 - studentYearsOld(i)
IF studentYrs < 18 THEN
PRINT "Лет до права голоса:"; 18 - studentYrs
ELSEIF studentYrs >= 18 THEN
PRINT "Студент уже имеет право голоса!"
PRINT
END IF
studentYrs = 0
NEXT i

Код валидный, если допустил ошибку во время переписывания - сообщите.