Даны натуральные числа от 20 до 50. Напечатать те из них, которые делятся на 3, но не делятся на 5 — Pascal(Паскаль)

uses crt;
var i : integer;
begin
 clrscr;
 for i := 20 to 50 do
  if (i mod 3 = 0) and (i mod 5 <> 0) then
   write(i,' ');
 readln;
end.