Вывести k-ое число из последовательности Фибоначчи

var i, ch,ch1,n,ch2:longint;
begin
assign(input, 'input.txt');
reset(input);
assign(output, 'output.txt');
rewrite(output);
read(n);
ch:=0;
ch1:=1;
for i:=1 to n do
begin
ch2:=ch1;
ch1:=ch;
ch:=ch1+ch2
end;
write(ch);
end.

function summa(s1,s2:string):string;
var s3:string;
    l,{длина большей строки}
    p,{перенос при сложении цифр}
    c,{сумма двух цифр и переноса}
    i:integer;{счетчик}
begin
s3:='';
l:=length(s2);
if length(s1)<length(s2) then
for i:=length(s1) to l-1 do
insert('0',s1,1);
p:=0;
for i:=l downto 1 do
 begin
  c:=ord(s1[i])+ord(s2[i])-96+p;
  p:=c div 10;
  insert(chr(c mod 10+48),s3,1);
 end;
if p>0 then insert('1',s3,1);
summa:=s3;
end;
var   s1,s2,s3: string;
      n,i:integer;
begin
repeat
write('Введите натуральное число от 1 до 200 n=');
readln(n);
until n in [1..200];
if n<3 then write(1)
else
 begin
  s1:='1';
  s2:='1';
  for i:=3 to n do
   begin
    s3:=summa(s1,s2);
    s1:=s2;
    s2:=s3;
   end;
 end;
write(s3);
end.

var
  a, b, c : array [0..50] of Byte;
  n, i, p : Byte;
begin
  Read(n); a[0] := 1; a[1] := 1; b[0] := 1; b[1] := 0;
  while n > 1 do
    begin
      for i := 0 to b[0] do c[i] := b[i];
      for i := 0 to a[0] do b[i] := a[i];
      p := 0;
      for i := 1 to b[0] do
        begin
          p := p + b[i] + c[i];
          a[i] := p mod 10;
          p := p div 10;
        end;
      if p > 0 then
        begin
          a[0] := b[0] + 1;
          a[a[0]] := p;
        end
      else
        a[0] := b[0];
      dec(n);
    end;
  for i := a[0] downto 1 do Write(a[i]);
end.

var
  a, b, c : String;
  n, i, p : Integer;
begin
  Read(n);
  a := #1; b := #0;
  while n > 1 do
    begin
      c := b; b := a; a := '';
      while Length(c) < Length(b) do c := c + #0;
      p := 0;
      for i := 1 to Length(b) do
        begin
          p := p + ord(b[i]) + ord(c[i]);
          a := a + chr(p mod 10);
          p := p div 10;
        end;
      if p > 0 then a := a + chr(p);
      Dec(n);
    end;
  for i := Length(a) downto 1 do Write(ord(a[i]));
end.