True:
Var a,b:array[1..100] of integer;
          c: array[1..100] of real;
          i,n:integer;
Begin
write('Nhap so hoc sinh: ');readln(n);
writeln('Nhap diem Toan');
for i:=1 to n do begin write(i,'. ');readln(a[i]);end;
writeln('Nhap diem Van');
for i:=1 to n do begin write(i,'. ');readln(b[i]);end;
for i:=1 to n do c[i]:=(a[i]+b[i])/2;
writeln('Diem trung binh');
for i:=1 to n do writeln(i,'. ',c[i]:0:5);
readln
end.

Giới hạn từ 0-10 điểm:
Var a,b:array[1..100] of integer;
          c: array[1..100] of real;
          i,n:integer;
Label s,t;
Begin
write('Nhap so hoc sinh: ');readln(n);
writeln('Nhap diem Toan 0-10');
for i:=1 to n do begin s:write(i,'. ');readln(a[i]);if (a[i]<0) or (a[i]>10) then goto s;end;
writeln('Nhap diem Van');
for i:=1 to n do begin t:write(i,'. ');readln(b[i]);if (b[i]<0) or (b[i]>10) then goto t;end;
for i:=1 to n do c[i]:=(a[i]+b[i])/2;
writeln('Diem trung binh');
for i:=1 to n do writeln(i,'. ',c[i]:0:5);
readln
end.

Tiết kiệm dung lượng:
Var a:array[1..100] of integer;
          b: array[1..100] of real;
          i,n:integer;
Label s,t;
Begin
write('Nhap so hoc sinh: ');readln(n);
writeln('Nhap diem Toan 0-10');
for i:=1 to n do begin s:write(i,'. ');readln(a[i]);if (a[i]<0) or (a[i]>10) then goto s;end;
writeln('Nhap diem Van');
for i:=1 to n do begin t:write(i,'. ');readln(b[i]);if (b[i]<0) or (b[i]>10) then goto t;end;
for i:=1 to n do b[i]:=(a[i]+b[i])/2;
writeln('Diem trung binh');
for i:=1 to n do writeln(i,'. ',b[i]:0:5);
readln
end.