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.
Var i:integer;
Begin
For i:=10 to 99 do
Begin
if (i mod 3=0) or (i mod 5=0) then Writeln(i);
end;
readln;
end.
var i:integer;
begin
for i:=10 to 99 do
if (i mod 3=0) or (i mod 5=0) then write(' ',i);
end.