6кб 500байт 3000бит перевести в байты

3000 бит = 375 байт
500 байт = 500 байт
6кб = 6144 байт

все суммируем и получаем 7019 байт
 

Не особо знаю паскаль, так что дабы не накосячить с синтаксисом, покажу на примере. Тут всё просто - тебе лишь нужен цикл 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, чтобы было нагляднее.  

Появилось две линии, стрелочка начала зацикливаться. Получается алгоритм будет выполняться бесконечное количество раз. Чтобы более точно ответить на письменный вопрос - можете провести идентичные действия:

Заходим в ГРИС.

Нажимаем "Начать"

Нажимаем F4(поворот) три раза. (В условии сказано, что исходное положение: ГРИС — в левом верхнем углу, направление — вниз.)

Теперь нажимаем F8(цикл) - выбираем: Пока впереди не стена.

Следующим этапом нажимаем F5 (описание). В появившейся строке нужно написать ПУТЬ и нажать Enter. Чтобы отключить окно нажимаем Esc. Жмем ещё два раза Enter.

Нажимаем: F4 - F3 - F4 (поворот - прыжок - поворот).

При откладки (вверху) спускаемся в самый низ на панели наших действий (слева).

Жмем F8 - Пока впереди стена.

Жмем F2 (шаг).

Жмем на откладку вверху и смотрим результат

Готово))