1. 

program Tin_hoc;

uses crt;

var i,n:integer;

begin

clrscr;

writeln('Nhap so nguyen: ');readln(n);

writeln('Tat ca cac uoc cua ',n,' la:);

for i:= 1 to n do if n mod i = 0 then write(i,'  ');

readln;

end.

2.

program Tin_hoc;

uses crt;

var i,n,S:integer;

      a:array [1..100000] of integer;

begin

 clrscr;

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

 writeln('Nhap ',n,' so:');

 S:=0;

 for i:= 1 to n do 

   begin

   readln(a[i]);

   S:=S+a[i]

   end;

writeln('S=',S);

readln;

end.

3.

program Tin_hoc;

uses crt;

var i,n,min,max:integer;

      a:array [1..100000] of integer;

begin

clrscr;

write('Nhap do dai cua day: ');readln(n);

writeln('Nhap ',n,' phan tu cua mang: ');

for i:= 1 to n do readln(a[i]);

min:=a[1]; max:=a[i];

for i:= 1 to n do

begin

if a[i] > max then max:=a[i];

if a[i] < min then min:=a[i]

end;

writeln('max=',a[i]);

writeln('min=',a[i]);

readln;

end.

Nhớ cho mik câu tlhn nha 

Progam tin_hoc;

uses crt;

var n, i: integer;

Begin

clrcr;

Write ('Nhap so n'); readln(n);

For i:=1 to n do if n mod i = 0 then write(i:3,',');

readln

end.

Chúc bạn học tốt ^^