Найти все трехзначные числа, которые делятся на 3 без остатка

var
a: array of integer;
n: integer;
begin
randomize;
write('Введите количество чисел: ');
readln(n);
setLength(a, n);
for var i := 0 to n-1 do begin
a[i] := random(300)+1;
write(a[i], #32);
end;
writeln(#10, 'Трехзначные числа кратные 3:');
for var i := 0 to n-1 do
if (a[i] > 99) and (a[i] mod 3 = 0) then
write(a[i]:4);
end.