Исправление задачи в паскале

[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?

[Veselyn]

А чем тебя array не устраивает?

[dante92]

Просто в универе не изучали еще этого,училка поймет что не сам сделал...

[Veselyn]

Изучи его: http://www.debryansk.ru/~lpsch/uchit...al/pas_lek.htm
P. S. В университете преподаватели, учителя остались в школе

[dante92]

Я первак...никак не могу забыть=) Так мне даж если пойму нельзя использовать array...препод придирчивый(Может поможешь?