Viết chương trình nhập điểm môn Toán, Văn, Lí cho các học sinh trong 1 lớp. Hãy in ra điểm của từng học sinh trong từng môn

program phuongt;

uses crt;

   var A: array[1..10] of real;

         M: array[1..10] of real;

         Y: array[1..10] of real;

         i, n: integer;

begin

           clrscr;

           write(‘Nhap so hoc sinh trong 1 lop: ‘); readln(n);

           for i:=1 to n do

           begin

                    writeln(‘Nhap diem ban thu ‘, i);

                    write(‘Toan: ‘); readln(A[i]);

                    write(‘Van: ‘); readln(M[i]);

                    write(‘Li: ‘); readln(Y[i]);

           end;    

           clrscr;

           writeln(‘Diem tung hoc sinh trong tung mon:’);

           writeln(‘- Toan:’);  

           if (A[i]<=10) and (A[i]>=0) then

                   for i:=1 to n do writeln(‘Ban thu ‘, i, ‘: ‘, A[i]:3:1);

           writeln(‘- Van:’);  

           if (M[i]<=10) and (M[i]>=0) then

                   for i:=1 to n do writeln(‘Ban thu ‘, i, ‘: ‘, M[i]:3:1);

           writeln(‘- Li:’);  

           if (Y[i]<=10) and (Y[i]>=0) then

                   for i:=1 to n do writeln(‘Ban thu ‘, i, ‘: ‘, Y[i]:3:1);

           readln

end.