Дано целое число n (> 2 сформировать и вывести целочисленный массив размера n , содержащий n первых элементов последовательности фибоначчи

Интересная , var x,i,c,q,p: integer; s: string; max,min,k: char; begin   readln(x);   str(x,s);   max: =s[1];   min: =s[1];   p: =1; q: =1;   for i: =2 to length(s) do     begin     if s[i]> max then       begin         max: =s[i];         q: =i;       end;     if s[i]< min then       begin         min: =s[i];         p: =i;       end;     end;   k: =s[p];   s[p]: =s[q];   s[q]: =k;   val(s,x,c);   writeln(x); end. сработает для чисел любой значности.

//pascalabc.net 3.0 begin   var a : = arrrandom(24, 3, 76);   writeln('затрачиваемое учениками время: ');   a.println;   writeln('среднее время: ', a.average : 0 : 2); end. //fpc / turbo pascal var   a, i, sum: integer; begin   writeln('затрачиваемое учениками время: ');   for i : = 1 to 24 do   begin       a : = random(74) + 3;       sum : = sum + a;       write(a, ' ');   end;   writeln;   writeln('среднее время: ', sum / 24 : 0 : 2); end.