bilangan fibbonaci dalam pascal

program soal_5;
uses wincrt;
var a,b:integer;
begin
a:=1;
b:=1;
writeln(a);
while a<=100 do
begin
writeln(a);
a:=a+b;
b:=a-b;
end;
end.