Var i:integer;BeginFor i:=10 to 99 doBeginif (i mod 3=0) or (i mod 5=0) then Writeln(i);end;readln;end.
var i:integer;beginfor i:=10 to 99 doif (i mod 3=0) or (i mod 5=0) then write(' ',i);end.