Jawabanmu

2014-06-28T22:22:42+07:00
PASCAL
var N,x:integer;
begin
readln(N);
x:=1;
while (x<=N) do
begin
 if(x mod 2=1) then 
 if(x mod 5=0) then write x;
 x:=x+1;
end
end.