Bài 4:

uses crt;

var i,n,S:integer;

begin

write('nhap n: ');readln(n);

for i:=1 to n do

if n mod i=0 then S:=S+i;

writeln('tong cac uoc la: ',s);

readln;

end.

Bài 3:

uses crt;

var i,n:integer;

begin

write('nhap n: ');readln(n);

for i:=1 to n do

if n mod i=0 then writeln('uoc la ',i);

readln;

end.

program bai_giai;
uses crt;
var a,b:longint;
begin
 clrscr;
  write('nhap a,b:');readln(a,b);
  write('tong 2 so a,b la:',a+b);
 readln;
end.

----------------------------------

program bai_giai;
uses crt;
var n,i:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  for i:=1 to n do if( n mod i=0)then write(i,' ');
 readln;
end.

----------------------------------------

program bai_giai;
uses crt;
var n,i,s:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  s:=0;
  for i:=1 to n do if( n mod i=0)then s:=s+i;
  write('tong cac uoc cua n la:',s);
 readln;
end.