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

[RUSSTUDENT]

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

[KREGI]

А свои мысли есть по задаче? Какой язык?

[RUSSTUDENT]

К сожалению нет

[KREGI]

числа Фибоначчи с порядковым номером N.

Function ww ( N: Integer ): LongInt;
Var a,b,c: LongInt; i: Integer;
Begin
a:=1;
b:=1;
c:=1;
 For i:=3 To N Do
  Begin
   c:=a+b; a:=b; b:=c
  End;
ww:=c
End;

Вызов:

procedure TForm1.Button1Click(Sender: TObject);
var x:Integer;
begin
 x:=StrToInt(Edit1.Text);
 ShowMessage(IntToStr(ww(x)));
end;

Остальное сами? =)
P.S. Писал в дефли, на паскаль не сложно переделать...

[RUSSTUDENT]

Огромное спасибо!
Вот никак зачёт по информатике не могу сдать