Nhập vào 1 số nguyên in ra các ước của nó và tổng các ước Free pascal nha

uses crt;

var n , i , sum : longint;

begin

clrscr;

readln(n);

sum = 0;

for i := 1 to n do

begin

if (n mod i == 0) then

begin

write(i);write(' ');

sum = sum + i;

end;

end;

writeln;

writeln(sum);

end.

#include<stdio.h>

int main() {

            int n, i;

            printf("Nhap n: ");

            scanf("%d", &n);

            for(i=1; i<=n; i++) {

                        if(n%i==0)

                                    printf("\nUoc so cua n la %d",i);