viết chương trình nhập 2 số nguyên từ bàn phím(a<b). in ra màn hình a) Tổng các ước của a và b b) tìm UCLN của a và b c) in ra các số hoàn thiện từ a->b (vd: 6 vì 6=1+2+3)

uses crt;
var a, b, i, j: longint;
    divsum: array[0..1000000] of longint;
    
function gcd(a, b: longint): longint;
begin
    while a * b <> 0 do
        begin
            a:=a mod b;
            if a <> 0 then b:=b mod a;
        end;
    exit(a + b);
end;

begin
    clrscr;
    readln(a, b);
    
    for i:=1 to b do
        begin
            j:=i;
            while j <= b do
                begin
                    inc(divsum[j], i);
                    inc(j, i);
                end;
        end;
    writeln(divsum[abs(a)] + divsum[abs(b)]);
    writeln(gcd(abs(a), abs(b)));
    
    if a < 0 then a:=0;
    if b < 0 then b:=0;
    for i:=a to b do if divsum[i] = (i shl 1) then write(i, ' ');
readln;
end.