Program baitap;
Uses crt;
Var A:array[1..100] of integer;
    n,i:integer;
    S:longint;
Begin
Clrscr;
S:=0;
Write('n='); Readln(n);
For i:=1 to n do 
     Begin
     Write('Nhap so luong hoc sinh bi f0 cua truong thu ',i,':');
     Readln(A[i]);
     End;
Write('Day so luong f0 lon hon 300 cua cac truong:');
For i:=1 to n do
     If A[i]>300 then write('  ',A[i]);
Writeln('');
For i:=1 to 10 do S:=S+A[i];
Writeln('Tong so f0 cua 10 truong dau tien:',S);
Readln
End.

__________________________

Đã test code

Viết chương trình nhập vào số lượng học sinh bị f0 của n trường học trong tỉnh (n không vượt quá 100). Hãy in ra màn hình dãy số lượng f0 lớn hơn 300 của các trường và cho biết tông số f0 của 10 trường đầu tiên trong dãy n trường đó.

Em FA, not F0 ;-;

Bài này sử dụng kiểu dữ liệu Int64, Int64 phạm vi giá trị lớn hơn Longint, làm cho bài in ra số đẹp hơn, không in ra số âm

 uses crt ;
  var a : array [1..100] of int64 ;
  n , s, i : int64 ;
     begin
      clrscr ;
    Write('nhap n: ') ;
    readln(n) ;
        for i :=1 to n do 
         begin
         Write('nhap so luong F0 turong thu(',i,') la: ') ;
         readln(a[i]) ;
         if i <=10 then s := s+ a[i] ;
         end ;
        Writeln('F0 vuot muc 300 la: ') ;
        for i := 1 to n do
            if a[i] > 300 then 
                            Writeln(a[i]) ;
    Writeln('tong F0 10 truong dau tien la: ', s:3) ;
      readln 
         end .