Вывести все натуральные числа от 20 до 50 кратные 3 и не кратные 5 ( на паскале)

begin

  range(20, 50).where(t -> (t mod 3 = 0) and (t mod 5 < >

end.

800*600=480000 байт

var x,y,nod,nok: longint;

begin

read(x,y);

a: =x; b: =y;

while (a> 0) and (b> 0) do

if a> b then a: =a mod b

else b: =b mod a;

nod: =a+b;

nok: =(x div nod)*y;

write(nok);

end;