Напишите программу, определяющую количество углов подставки, после обработки ее заботливым Мишей - Free Pascal

Формулировка задачи:

Дорогие мои. Ситуация такая:недавно прошел школьный этап олимпиады по информатике. Я решила все задачи и, как выяснилось (благодаря тестовому, проверяющему автоматизированно, модулю, решила неправильно! А я уверена, что программы написаны верно! Помогите разобраться Задача 1. "Заботливый Миша" (25 баллов) Имя входного файла: a.in Имя выходного файла: a.out Ограничение времени 1 секунда на тест Ограничение по памяти 256 Мб Добрый мальчик Миша заботится о своей младшей сестренке Лере. Лерочка только начала ходить. Миша наклеил мягкие накладки на все углы мебели в доме, убрал острые предметы. Какой все-таки Миша молодец! Однажды Миша заметил, что сестренка любит играть с квадратной пластиковой подставкой под горячее. Лерочка может пораниться об углы – подумал Миша. Миша подумал и выполнил первый шаг обработки подставки: срезал каждый угол прямой линией. Подставка стала восьмиугольной. Углы, как показалось Мише, стали менее опасны для ребенка. На следующем шаге обработки подставки Миша вновь срезал каждый угол прямой линией. Подставка превратилась в шестнадцатиугольник. Напишите пожалуйста программу, определяющую количество углов подставки, после обработки ее заботливым Мишей. Формат входных данных: Первая строка входного файла содержит натуральное число Т– длину стороны подставки в миллиметрах. Вторая строка содержит натуральное число N – количество шагов обработки подставки. Т≤9000000000000000000. 2 ≤ N ≤ 80. Формат выходных данных: В выходной файл a.outвывести единственное целое число — ответ. Пример файла с входными данными и файла с результатом: a.in a.out 450 2 16

Мое решение:

program lena;
var f,f1:text;
s,t:longint;
n,i:byte;
begin
assign(f,'a.in.txt');
reset(f);
assign(f1,'a.out.txt');
rewrite(f1);
readln(f,t);
readln(f,n);
s:=4;
for i:=1 to n do
s:=s*2;
writeln(f1,s);
close(f);
close(f1);
end.

тестовая программы выдает такой протокол: Run-time error 2; Program terminated with non-zero exit code 2. Где я оступилась?

Решение задачи: «Напишите программу, определяющую количество углов подставки, после обработки ее заботливым Мишей»

textual
                            Листинг программы 
                        

                            assign(f,'a.out');
rewrite(f);
write(f,s);
close(f);
                        