Пользователь вводит 20 чисел, а программа должна вывести только те, которые делятся на 3 без остатка- Pascal(Паскаль)

Program MAS;
const n=20;
Var
s,i:byte;
A: array [1..n] of integer;
Begin
for i:=1 to n do begin
Writeln ('Введите',i,'элемент массива А');
Readln (A[i]);
end;
for i:=1 to n do
if A[i] mod 3=0 then
writeln('Число',A[i],'на позиции',i);
end.