var a,b,i: longint;
begin
a:=0; b:=1; write(a, ', ',b);
for i:=2 to 10 do
begin a:=a+b; b:=a+b; write( ', 'a, ', ',b); end;
end.
黑色头发:http://heisetoufa.iteye.com/
var a,b,i: longint;
begin
a:=0; b:=1; write(a, ', ',b);
for i:=2 to 10 do
begin a:=a+b; b:=a+b; write( ', 'a, ', ',b); end;
end.