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.

program diem;

uses crt;

var Toan,Van,Li:array[1..100] of real;

      Ten:string;

      n,i:integer;

begin

     clrscr;

     write('Nhap so luong thanh vien lop: ');   readln(n);

     for i:=1 to n do

          begin

               write('- Ten: ');   readln(ten[i]);

               write('    +Diem toan: ');   readln(Toan[i]);

               write('    +Diem van: ');   readln(Van[i]);

               write('    +Diem li: ');   readln(Li[i]);

          end;

     writeln('- Diem toan: ');

     for i:=1 to n do

          writeln('   + ',ten[i],': ',toan[i]:2:2);

     writeln('- Diem van: '); 

     for i:=1 to n do

          writeln('   + ',ten[i],': ',van[i]:2:2);

     writeln(' Diem li: ');

     for i:=1 to n do

          writeln('   + ',ten[i],': ',li[i]:2:2);

     readln;

end.