Tách số cực đại

Viết chương trình tách một số n thành 2 số a, b sao cho tích P=a*b đạt cực đại với n được nhập vào từ bàn phím.

                                              Giải

var i,j,n,tich,tg,a,b: integer;
Begin
       Write('Nhap so n: '); Readln(n);
       for i:=1 to n do
           begin
                 tg:=i*(n-i);
                 If tich < tg Then
                    begin
                         tich:=tg; a:=i; b:=n-i;
                    end;
           end;
       Write(n,'=',a,'+',b,' co tich ',a,'x',b,'=',a*b,' la lon nhat');
       readln;
End.