задача в ТР на цикл

[dante92]

Пожалуйста помогите с решением задачи,оч нужно до завтра!!!
вычислить число фибоначчи с номером к.Напечатать четные числа фибоначчи,следующие за вычисленным,сумма которых не больше а(а и к задаются).Решить с помощью while .

[Лубышев]

паскаля под рукой нет. Если все правильно понял то вот:

var k,a,i:integer;
pred1:integer;{предыдущее число}
pred2:integer;{предыдущее перед предыдущим}
tec:integer;{текущее}
begin
readln(a);
readln(k);

pred1:=1;
pred2:=1;
tec:=2;
if tec<=a then writeln(tec);
i:=4;{первые три числа задал вручную}
while (i<=k) do
begin
 pred2:=pred1;
 pred1:=tec;
 tek:=pred2+pred1;
 if tec mod 2 = 0 then 
   if tec<=a then writeln(tec);{если текущее число четное и меньше a то выводим его на экран}
  inc(i) { увеличиваем счетчик итераций}
end;
end.