Даны натуральные числа от 20 до 50. Напечатать те из них , которые делятся на 3, но не делятся на 5. В Лазарусе пожалуйста

12345678 uses crt; var i:integer; begin For i:=20 to 50 do If (i mod 3=0) and (i mod 5 <> 0) then writeln(i); end.

21 24 27 33 36 39 41 48