Khi chạy chương trình ví dụ sau sẽ in ra mà hình bao nhiêu số 0?

uses ctr;
var i : integer;
   begin
   clrscr;
   i:=1;
  while i < 14 do begin writeln ('0');
   i:= i + 1;
   end;
   readln;
end.
Khi chạy chương trình ví dụ trên sẽ in ra mà hình bao nhiêu số 0?