Какую ошибку допустил ученик при создании и заполнении таблицы базы данных?

Две одинаковые записи , по моему .

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

на один символ отводится 1 байт 30 строк по 70 символов - 2100 символов 5 страниц-это 10500 символов так что ответ 10500 байт