uses crt;

var A, B : array [1 .. 100] of real;

i, N : integer;

begin

clrscr;

write('Nhap so HS, N = '); readln(N);

for i := 1 to N do begin

write('Nhap diem HS thu ', i ,' : ');

readln(A[i], B[i]); end;

for i := 1 to N do

writeln('Diem tong HS thu ', i ,' : ', A[i] + B[i] : 2 : 1);

readln

end.

Uses Crt;

Var i,n : integer;

   V,S,A : array[1..100] of integer;

Begin

 Clrscr;

 Write('Nhap so hs : '); Readln(n);

 For i :=1 to n do 

  Begin

   Write('Nhap diem Van cua hs thu ',i,' : '); Readln(V[i]);

   Write('Nhap diem Anh cua hs thu ',i,' : '); Readln(A[i]);
   S[i]:=V[i]+A[i];

  End;
 For i:=1 to n do Writeln('Tong 2 mon cua hs thu ',i,' la : ',S[i]);

 Readln

End.