AI giúp mình gấp với được không ạaaaaaaa T T Mai mình kiểm tra rồi C2 viết chương trình nhập n phần tử rồi tính tổng các phần tử lớn hơn hoặc bằng 5

program chuogntrinh;
var a:array[1..100] of integer;
     n,i,s:integer;
     begin
     writeln(‘nhap so phan tu’); readln(n);
     for i:=1 to n do
     readln(a[i]);
     s:=0;
     for i:=1 to n do
     if a[i] >=5 then
     s:=s+a[i];
     writeln(‘tong la ‘, s:4);
     readln;
     end.