Ввести на экран все 4-х значные числа делящиеся на 15 ( 9 класс) program

program senya;

var

a1, a2, a3, a4: integer;

begin

for a1 := 1 to 9 do

for a2 := 0 to 9 do

for a3 := 0 to 9 do

for a4 := 0 to 9 do

if (a1 * 1000 + a2 * 100 + a3 * 10 + a4) mod 15 = 0 then

writeln (a1,a2,a3,a4);

end.