Nhập số nguyên n, in ra ước số lẽ lớn nhất của nó. Gợi ý : Sử dụng for… downto

program baigiai;
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(‘Uoc so le lon nhat cua ‘,n,’ la: ‘,i);
          break;
        end;
    readln
  end.