Câu 1 ( câu này mình không hiểu bạn muốn tìm n số đầu hay n số khác nhau nên mk làm trường hợp 2 còn trường hợp đầu bạn trên có làm rồi )
uses crt ;
Var n , i , s : integer ;
A : array ( 1..100) of integer ;
Begin
Clrscr ;
Writeln (' nhap n : ' ) ; readln ( n) ;
for i : = 1 to n do
Writeln ( ' nhap cac so : ' ) ;
Readln (  a[ i ] ) ;
s := 0 ;
for i:=1 to n do s : = s +  a [ i ] ;
Writeln ( ' tong n so tu nhien : ' , s) ;
Readln 
End .
Câu 2 
uses crt ;
Var n , i  : integer ;  min : real ;
​A : array ( 1 ..100 ) of real
Begin
Clrscr ;
Writeln (' nhap n : ' ) ; readln ( n) ;
For i : = 1 to n do 
writeln ( ' a [ ' , i , ' ] : ' ) ; readln ( a [ i ] ) ;
min : = a [ 1 ] ; 
For i := 1 to n do
If min > a [ i ] then min : = a [ i ] ;
Writeln ( ' gia tri nho nhat cua day so : ', min :5:2 ) ;
Readln
End .
Câu 3
uses crt ;
Var dai , rong , s , p : real ;
Begin
Clrscr ;
Writeln (' nhap chieu dai : ' ) ; readln ( dai ) ;
Writeln ( ' nhap chieu rong :' ) ; readln ( rong ) ;
s : = dai * rong ;
p := ( dai + rong ) *2 ;
Writeln ( ' dien tich hinh chu nhat : ' , s:5:2 ) ;
Writeln ( ' chu vi hinh chu nhat : ' , p:5:2 ) ;
Readln
End .
( xác định với mô tả mk ko làm )