C3:
Uses crt;
 Var n,i:integer;
       da,x: longint;
Begin
 Clrscr;
Writeln('Nhap N vao day: '); Readln(n);
 i:= 0; da:= 0;
While i < n do
 Begin
  i:= i + 1;
Writeln('Nhap X ',i,': '); Readln(x);
  da:= da + x;
End;
Writeln('Trung binh cong cua  ',n,' so nguyen la: ',da / n:0:2);
Readln
End.
C4:
Uses Crt;
Var n,i,k:longint;
Begin
  Clrscr;
Writeln('Nhap N='); Readln(n);
k:=0;
For i:=1 to n do
If n mod i = 0 then k:=k+1;
If k=2 then writeln ('',n, ' la so nguyen to');
Readln;
End.
C5:
Uses Crt;
Var n,i: Integer;
      A:array[1..10] of integer;
Begin
  Clrscr;
Write(' Nhap n='); Readln(n);
For i:=1 to n do
 Begin
Writeln('A[',i,']='); Readln(A[i]);
 End;
For i:=1 to n do Write(A[i]:2);
Readln 
End.

*Nhớ tick và chọn làm câu tr/l hay nhất giúp mình nhé!Thanks
P/s: Hỏi và đáp, comment ở dưới!

Câu 1:

uses crt;
var a,b:longint;
begin
clrscr;
   write('Nhap a,b: ');readln(a,b);
   if a>b then writeln(b,' ',a) else writeln(a,' ',b);
readln
end.   

Câu 2: Đề không rõ lắm.

Câu 3:

uses crt;
var i,n:longint; x:array[1..10000000]of longint; s:real;
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      begin 
         write('x[',i,']= ');readln(x[i]);
         s:=s+x[i];
      end;
   writeln('Trung binh cong: ',s/n:0:2);
readln
end.   

Câu 4:

uses crt;
var n,i:longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   i:=2;
   while(n>1)and(n mod i<>0)do inc(i);
   if i=n then writeln('N la so nguyen to') else
   writeln('N khong la so nguyen to');
readln
end.   

Câu 5:

uses crt;
var n,i:longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   i:=2;
   while(n>1)and(n mod i<>0)do inc(i);
   if i=n then writeln('N la so nguyen to') else
   writeln('N khong la so nguyen to');
readln
end.