var  doi_thi:array[1..1000] of string;
     diem_so: array[1..1000] of real;
     i,n,k: integer;
     max: real;
begin
write('Nhap so doi thi: '); readln(n);
for i:=1 to n do
begin
write('Ten doi thi thu: ',i, ' la: '); readln(doi_thi[i]);
write('Diem so doi thi thu ',i,' la: '); readln(diem_so[i]);
end;
max:=diem_so[1];
for i:=2 to n do
if diem_so[i]>max then begin max:=diem_so[i]; k:=i; end;
writeln('Doi co diem so cao nhat la ',doi_thi[k],' voi ',max:5:3,' diem');
end.

uses crt;
var  doi_thi : array[1..100] of string;
diem_so : array[1..100] of integer;
n,i ,j,k,max: integer;
begin clrscr;
write('Nhap n :'); readln(n);
for i:=1 to n do begin
write('Nhap doi_thi thu ',i,':'); readln(doi_thi[i]); end;
for i:=1 to n do begin
write('Nhap diem_so cua doi thu ',i,' :'); readln(diem_so[i]); end;
max:=diem_so[1];
for i:=1 to n do if diem_so[i] > max then begin max:=diem_so[i]; k:=i; end;
writeln('Doi co diem so cao nhat la :',doi_thi[k]);

readln
end.