Оператор цикла с постусловием (REPEAT)

[RUSSTUDENT]

Вычислить число Фибоначчи с номером К. Напечатать чётные числа Фибоначчи, следующие за вычисленным, сумма которых не больше А. (А и Кзадаются)

Если можно решите и с WHILE'ом

[Базиля]

576079457 ася, пиши

[Alex_FF]

вычисление N-го числа Фибоначчи.

program Fibo;
{$R+,Q+,S+,I+}
uses
      Math;
const
      Source = 'input.txt';
      Target = 'output.txt';
      Lmax   = 1001;
type
      T_Number = Array[0..Lmax] of Integer;

procedure One(var X: T_Number);
begin
       FillChar(X, SizeOf(X), 0);
       X[0] := 1;
       X[1] := 1;
end;

procedure Print(X : T_Number);
var
       I: Integer;
begin
       for I := X[0] downto 1 do
              Write(X[i]);
       WriteLn;
end;

procedure Add(A, B: T_Number; var C: T_Number);
var
       i, d: Integer;
begin
       FillChar(C, SizeOf(C), 0);
       d := 0;
       for i := 1 to max(A[0], B[0]) do
       begin
           Inc(d, A[i] + B[i]);
           C[i] := d mod 10;
           d := d div 10;
       end;
       C[0] := max(A[0], B[0]);
       if d > 0 then
       begin
          Inc(C[0]);
          C[C[0]] := d;
       end;
end;

var
      num, N: Integer;
      A, B, C: T_Number;
begin
      Reset(Input, Source);
      Rewrite(Output, Target);
      Read(N);
      One(A);
      One(B);
      num := 2;
      while num < N do
      begin
             Add(A, B, C);
             Inc(num);
             A := B;
             B := C;
      end;
      if N <= 2 then One(C);
      Print(C);
end.