program oken;
uses crt;
var a,b: array [1..100] of real;
    i,n: byte;
begin
    clrscr;
    write('Nhap so ban can nhap diem: '); readln(n);
    for i:=1 to n do
        begin
            write('Diem TOAN cua ban thu ',i,': ');
            readln(a[i]);
            write('Diem VAN cua ban thu ',i,': ');
            readln(b[i]);
        end;
    writeln('TBC cua moi ban');
    for i:=1 to n do
        writeln('Ban thu ',i,': ',(a[i]+b[i])/2:0:1);
    readln;
end.

program ct;

uses crt;

var i,n:integer;

     Dtoan, Dvan:array[1..100] of real;

begin

  write('nhao so hoc sinh=');readln(n);

    for i:=1 to n do

begin

   write('nhap diem toan [',i,']=');readln(Dtoan[i]);

   write('nhap diem van[',i,']=');readln(Dvan[i]);

end;

writeln('trung binh cua moi ban la');

for i:=1 to n do

write((Dtoan[i]+Dvan[i])/2:3:1);

readln

end.