斐波那契数列填充（编程pascal）

program ti4;
var a,b,c,i:integer;
begin
a:=1,b:=1;write(1:3,1:3);
for i:=1 to max do {max 按需要填写}
begin
c:=a+b ;write(c,'');
a:=b; b:=c;
end;
end.

program ti4;
var a,b,c,i,max:integer;
begin
writeln('input the limit');
{how many number do you want to output}
read(max);
a:=1,b:=1;write(1:3,1:3);
for i:=1 to max-3 do
begin
c:=a+b;write(c,'');
a:=b;b:=c;
end;
end.