program phuongt;

uses crt;

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

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

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

         i, a: integer;

begin

           clrscr;

           write('Nhap so hoc sinh trong 1 lop: '); readln(a);

           for i:=1 to a do

           begin

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

                    write('Toan: '); readln(E[i]);

                    write('Van: '); readln(X[i]);

                    write('Li: '); readln(O[i]);

           end;    

           clrscr;

           writeln('Diem tung hoc sinh trong tung mon:');

           writeln('Mon Toan:');  

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

                   for i:=1 to a do writeln('Ban thu ', i, ': ', E[i]:2:1);

           writeln('Mon Van:');  

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

                   for i:=1 to a do writeln('Ban thu ', i, ': ', X[i]:2:1);

           writeln('Mon Li:');  

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

                   for i:=1 to a do writeln('Ban thu ', i, ': ', O[i]:2:1);

           readln

end.