Anonymní profil fak.gesho – Programujte.com

Ahoj, pri spusteni mi to vzdy spadne na chybu error 207, jakmile dam trochu vetsi n. Diky za jakekoli napady

program Diference;

const n=100; // pocet funkcnich hodnot
      p=3;
      k=7;
      l=33;
      q=9;
      w=4;

var a:array[1..n] of real;
    b:array[1..p] of real;
   c:array[1..k] of real;
    d:array[1..l] of real;
    i:integer;

begin
  for i:=1 to p do b[i]:= i;

  for i:=1 to k do c[i]:= i;

  for i:=1 to l do d[i]:= i;

  for i:=1 to n   do a[i]:=(sin(b[i])*cos(b[i]*i))/b[i];

// for i:=0 to n-1 do d1[i]:=f[i+1]-f[i];

// for i:=0 to n-2 do d2[i]:=d1[i+1]-d1[i];

// for i:=0 to n-3 do d3[i]:=d2[i+1]-d2[i];

  for i:=1 to n do begin
   write(a[i]:9:4);

    writeln;
  end;
  readln;
end.