Viết chương trình tính ước lớn nhất của một số (Cần mỗi code của cái này thui :33)

program MAX;

uses crt;

var i,n,UMAX :integer;

begin

                  clrscr;

                  write(‘Nhap so n: ‘);readln(n);

                  For i:=n div 2 downto 1 do //Cac U cua N se KHONG BAO GIO >1/2 CUA N

                  if n mod i=0 then

                                    begin

                                                     UMAX:=i;

                                                      break;

                                    end;

                  write(i);

                  readln;

end.