Вывести на экран все трёхзначные числа кратные трём и заканчивающиеся на один

Program n1;var i: integer;beginfor i:=111 to 981 do if ( i mod 3=0) and (i mod 10=1) then write(i,' ');end.