program uocso; uses crt; var n,i:integer; begin clrscr; write('Nhap n: '); readln(n); for i:=n downto 1 do if (n mod i=0) and (i mod 2=1) then begin write(i); break; end; readln end.
uses crt; var i,n,t:longint; begin clrscr; write('n=');readln(n); for i:=n downto 1 do if(t=0)and(n mod i=0)and(i mod 2=1) then t:=i; writeln(t); readln end.
