uses crt;
var n,i:longint;a:array[1..1000]of longint;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
readln;
end.

**Chỉ nhập thôi à :v

Python:

n=int(input('nhap so ban trong lop: '))
a=[0]*n
for i in range (n):
    a[i]=int(input('nhap nam sinh cua ban thu %d: '%(i+1)))

C++:

#include <iostream>
using namespace std;
int main(){
    long n;
    cout << "Nhap so hoc sinh trong lop: ";
    cin >> n;
    long a[n];
    for (long i=1; i<=n; i++){
        cout << "Nhap nam sinh cua hoc sinh thu " << i << ": ";
        cin >> a[i];
    }
}

$\color{green}{\text{Cần code C#, JavaScript, Java thì nói để mình thêm}}$

$\color{red}{\text{#Daoanhviet96}}$