Запишите в файл целые числа - Turbo Pascal

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

Дано натуральное число

. Запишите в файл целые числа

b1,...,bn

, где при

i=1,2,...,n

значение

равно: a)

; б)

i^2

; в)

; г)

2^i+(3^i+1)

. Помогите написать эту задачу на Turbo Pascal пожалуйста.

Решение задачи: «Запишите в файл целые числа»

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

var n,i,b,c,d:longint;
    f:text;
begin
assign(f,'res.txt');
rewrite(f);
repeat
write('Введите 1=<n<=12 n=');
readln(n);
until n in [1..12];
for i:=1 to n do
write(f,i,' ');
writeln(f,'');
b:=1;
for i:=1 to n do
 begin
  b:=b*i;
  write(f,b,' ');
 end;
writeln(f,'');
c:=1;
d:=1;
for i:=1 to n do
 begin
  c:=c*2;
  d:=d*3;
  b:=c+d+1;
  write(f,b,' ');
 end;
close(f);
writeln('Данные записаны в файл res.txt');
readln
end.

Объяснение кода листинга программы

Этот код написан на Turbo Pascal и выполняет следующие действия:

Объявляет переменные n, i, b, c и d как longint.
Устанавливает файл f для записи.
Очищает файл f.
В цикле repeat-until запрашивает у пользователя вводить число от 1 до 12.
Записывает в файл f введённое пользователем число, разделённое пробелами.
После каждого записанного числа очищает экран.
В цикле for вычисляет произведение i на b и записывает результат в файл f.
После каждого вычисленного произведения очищает экран.
В цикле for умножает c на 2 и d на 3, затем складывает результаты и записывает их в файл f.
После каждого вычисленного произведения очищает экран.
Закрывает файл f.
Выводит на экран сообщение о том, что данные записаны в файл res.txt.
Ждёт ввода от пользователя.