program phuongt;

uses crt;

   var B, T, S: array[1..10] of real;

         i, x: integer;

begin

           clrscr;

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

           for i:=1 to x do

           begin

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

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

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

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

           end;    

           clrscr;

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

           writeln('Mon Toan:');  

           if (B[i]<=10) and (B[i]>=0) then for i:=1 to x do writeln('Ban thu ', i, ': ', B[i]:2:1);

           writeln('Mon Van:');  

           if (T[i]<=10) and (T[i]>=0) then for i:=1 to x do writeln('Ban thu ', i, ': ', T[i]:2:1);

           writeln('Mon Li:');  

           if (S[i]<=10) and (S[i]>=0) then for i:=1 to x do writeln('Ban thu ', i, ': ', S[i]:2:1);

           readln

end.

uses crt;

var

toan,van,li: array[1..100] of integer;

i,N: integer;

begin

write('nhap so hoc sinh cua lop '); readln(N);

for i:=1 to N do

begin

write('nhap diem toan cua ban hoc sinh ',i,' '); readln(toan[i]);

write('nhap diem van cua ban hoc sinh ',i,' '); readln(van[i]);

write('nhap diem li cua ban hoc sinh ',i,' '); readln(li[i]);

end;

for i:=1 to N do writeln('diem toan cua ban hoc sinh ',i,' la ',toan[i]);

for i:=1 to N do writeln('diem van cua ban hoc sinh ',i,' la ',van[i]);

for i:=1 to N do writeln('diem li cua ban hoc sinh ',i,' la ',li[i]);

readln

End.