أرشيف قسم الرياضيات والإعلام الآلي

program suitfibo;

var

u,u1,u2,i: integer;

begin 

u1:=1;u2:=1;

write(u1,u2);

for i:=3 to 30 do 

begin 

u:=u1+u2;

write (u);

u1:=u2;

u2:=u;

end;

end.