uses crt;
var ten: string;
    diemly, diemhoa: array[0..150] of real;
    i, n: integer;
    tbly, hoathap: real;
begin
    clrscr;
    write('Em ten '); readln(ten);
    write('Em nhap so hoc sinh: '); readln(n);
    writeln;
    hoathap:=10;
    for i:=1 to n do
        begin
            write('     Diem ly[', i, '] = '); readln(diemly[i]);
            write('     Diem hoa[', i, '] = '); readln(diemhoa[i]);
            writeln;
            if hoathap > diemhoa[i] then hoathap:=diemhoa[i];
            tbly:=tbly + diemly[i];
        end;
    writeln;
    writeln('Diem trung binh Ly: ', tbly / n:0:1);
    writeln('Diem Hoa nho nhat la: ', hoathap:0:1);
readln;
end.