30 ! найти удвоенное 13 число фибоначчи

Или вручную:
1 число: 1
2: 1
3: 1+1=2
4: 2 + 1 = 3
5:  3 + 2 = 5
6: 5 + 3 = 8
7: 8 + 5 = 13
8: 8 + 13 = 21
9: 21 + 13 = 34
10: 34 + 21 = 55
11: 55 + 34 = 89
12: 89 + 55  = 144
13: 144 + 89 = 233
233 * 2 = 466

var
 ch, ch1, n, i, ch2: integer;

begin
ch:=0;
ch1:=1;
For i:=1 to 13 do
begin
  ch2:=ch1; 
  ch1:=ch;
  ch:=ch1+ch2;
 end;
writeln(ch*2);
end.

ответ: 466