13 lines
158 B
Text
13 lines
158 B
Text
|
var n, a, b, i, tmp;
|
||
|
|
begin
|
||
|
|
? n;
|
||
|
|
a := 0; b := 1;
|
||
|
|
i := 2;
|
||
|
|
while i <= n do
|
||
|
|
begin
|
||
|
|
tmp := b; b := a + b; a := tmp;
|
||
|
|
i := i + 1
|
||
|
|
end;
|
||
|
|
! b;
|
||
|
|
end.
|