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.
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.