Даны натуральные числа от 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
writeln(i,' делится на три, но не делится на 5');
end.