viết chương trình tính tổng các ước của 1 số nguyên dương cho trước ví dụ nhập 24 in ra 60 Làm trong pascal

var n,s,i:integer;
begin 
    read(n);
    s := 0;
    for i := 1 to trunc(sqrt(n)) do 
    begin
        if n mod i = 0 then 
        begin
            s := s + i;
            if trunc(n/i) <> i then s := s + trunc(n/i);
        end;
    end;
    write(s);
end.

uses crt;
var n,i,s:longint;
begin
    clrscr;
    write('Nhap so nguyen duong n: ');
    readln(n);
    s:=0;
    for i:=1 to n do
        if n mod i=0 then s:=s+i;
    writeln('Tong cac uoc so cua ',n,' la: ',s);
    readln;
end.