Дано натуральное число n. составьте программу, которая выводит все числа от 1 по n, у которых последняя цифра кратная 3

Program n1;
var n,p,i: integer;
begin
write('введите n: ');
readln(n);
for i:=1 to n do
begin
p:= i mod 10;
if (p mod 3=0) and (p<>0)
then write(i,' ');
end;
end.