CHO CHƠNG TRÌNH SAU

Bài 1 (2,0 điểm):

Cho chơng trình sau:

VAR i,j:integer;

BEGIN i:=1; j:=1;

While i<2000 Do

Begin Writeln(i,’ ‘,j*100);

If i mod 3<>0 Then i:=i*15

Else i:=i div 3;

j:=j+2;

End;

END.

Khi cho thực hiện thì chơng trình sẽ in ra màn hình bao nhiêu số và số lớn nhất là

số nào?