контрольная по информатике

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.

на вход "черного ящика"подается число 125. о чем в этом случае говорит отказ: кажеться а

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.

у меня получилось, что первое число 954, второе 459, а третье 495. т.е. получился пример : 954-459=495