Найти двенадцать первых чисел последовательности Фибоначчи

uses crt;
type t=array[1..12] of integer;
var n: t;   i: byte;
begin
for i:=1to 12do
begin
n[1]:=1; n[2]:=1;
n[i]:=[i-1]+[i-2];
writeln(n[i]);
end;
end.

uses crt;
type t=array[1..10] of integer;
var n: t;    i, a, p: integer;
begin
writeln('Введите первый член');
readln(a);
writeln('Введите шаг ');
readln(p);
for i:= 1 to 10 do
begin
n[1]:=a; n[i]:=a+p;
writeln(n[i]);
end;
end.

uses crt;
const n=12;
var a:array[1..n] of integer;
    i:integer;
begin
a[1]:=1;
a[2]:=1;
for i:=3 to n do
a[i]:=a[i-1]+a[i-2];
for i:=1 to n do
write(a[i],' ');
end.

uses crt;
const n=10;
var a:array[1..n] of integer;
    p,i:integer;
begin
writeln('Введите первый член');
readln(a[1]);
writeln('Введите шаг ');
readln(p);
for i:=2 to n do
a[i]:=a[i-1]+p;
for i:=1 to n do
write(a[i],' ');
end.

uses crt;
type t=array[1..20] of longint;
var m: t;    n, i: longint;
begin
for i:=1 to 20 do
for n:=300 to 10000 do
begin
if(n mod 13=0)or(n mod 17=0) then
begin
m[i]:=n;
writeln(m[i]);
end;
end;
end.

uses crt;
type t=array[1..30] of integer;
var n: t;    i, i2, a, s: integer;
begin
   repeat
   for a:= 1 to 32000 do
      begin
      inc(i2);
      if a mod i2=0 then begin s:=s+1; n[i]:=a; end;
      end;
   inc(i);
   until i=30;
for i:=1 to 30 do writeln(n[i]);
end.

program PR26_2;
{найти 30 первых простых чисел}
uses crt;
const n=30;
var i, ch, c, k: integer;
    a:array[1..n] of integer;
    f:boolean;
begin
k:=1;
ch:=2;
a[k]:=ch;
while k<n do
 begin
  ch:=ch+1;
  f:=true;
  i:=2;
  while(i*i<=ch)and f do
  if ch mod i=0 then f:=false
  else i:=i+1;
  if f then
   begin
    k:=k+1;
    a[k]:=ch;
   end;
 end;
for i:=1 to n do
write(a[i]:4);
end.