3) Алгоритм вычисления функции F(n) задан следующими соотношениями:   F(n) = 2 при n = 1  F(n) = F(n–1) + 5n2, если n > 1Чему равно значение функции F(39)? 5 Алгоритм вычисления функции F(n) задан следующими соотношениями:F(n) = 3 при n ≤ 1F(n) = F(n–1) + 2·F(n–2) – 5, если n > 1Чему равно значение функции F(22)? 7). Алгоритм вычисления функции F(n) задан следующими соотношениями:F(n) = n при n > 15F(n) = 2·F(n+1) + 5n + 2, если n ≤ 15Чему равно значение функции F(2)? ​P. S. ЭТО ВСЁ НУЖНО ДЕЛАТЬ В EXCEL

  program proga_25_1;
 Var
A: text;     
i,j,n,m : byte;     
 d: string;     
Sim:char;
 Begin             
write('Введите имя текстового файла   ');  {Например: "test" он создастся там где находится сама программа }               
read(d);                                       
 Assign(A,d);               
 rewrite(A);                   
 write('Введите количество строк: N= ');                        
readln(n);                   
 write('Введите количество символов в строке: M= ');                     
  readln(m);                                     
for I:=1 to n do                   
 begin                         
 Sim:=Chr(Ord('1')+I-1);                         
  For J:=1 to m do                             
  write(A,Sim);                               
 writeln(A);                 
  end;                         
  close(A);
end.