Program numbers;
vari: integer;
beginfor i := 20 to 50 dobeginif (i mod 3 = 0) and (i mod 5 <> 0) thenbeginwriteln(i);end;end;end.
Program numbers;
var
i: integer;
begin
for i := 20 to 50 do
begin
if (i mod 3 = 0) and (i mod 5 <> 0) then
begin
writeln(i);
end;
end;
end.