задача на while цикл

[dante92]

Вот условие задачи.вычислить число фибоначчи с номером к.Напечатать четные числа фибоначчи,следующие за вычисленным,сумма которых не больше а(а и к задаются).
Вот решение:
Var k,i,a,s:longint;
f:array[1..100] of longint;
Begin
Readln(k,a);
s:=0;
f[1]:=1;
f[2]:=1;
for i:=3 to 100 do begin
F[i]:=f[i-2]+f[i-1];
end;
writeln(f[k]);
i:=k+1;
while s<a do begin
s:=s+f[i];
if f[i] mod 2=0 then write(f[i],' ');
i:=i+1;
end;
readln;
end.

Подскажите пожалуйста как можно задачу решить без array?Просто array пока в универе не изучали,не примет препод....

[Greblin]

var f, f1, f2: integer;
    k, i: integer;
    a, s: integer;

begin
readln(k, a);
f1 := 1; f2 := 1;
if (k < 3) then f := 1
else for i := 3 to k do begin f := f1 + f2; f1 := f2; f2 := f; end;
writeln(f);
s := 0;
while s <= a do
  begin
  f := f1 + f2; f1 := f2; f2 := f;
  if f mod 2 = 0 then
    begin
    s := s + f;
    if s <= a then writeln(f);
    end;
  end;
end.