program SatHach;
const
MAX_N = 100;
var
N, i: integer;
t1: array[1..MAX_N] of integer;
procedure KiemTraThoiDiemKetThuc(N: integer; var t1: array of integer);
var
i, endTime: integer;
begin
writeln('Thoi diem ket thuc bai sat hach cua tung thi sinh:');
endTime := 8 * 60; // 8:00 AM
for i := 1 to N do
begin
endTime := endTime + t1[i];
writeln('Thi sinh ', i, ': ', endTime div 60, ' gio ', endTime mod 60, ' phut');
end;
end;
begin
// Nhập số lượng thí sinh
write('Nhap so luong thi sinh (N): ');
readln(N);
// Nhập thời gian thực hiện bài sát hạch của từng thí sinh
writeln('Nhap thoi gian thuc hien bai sat hach cho tung thi sinh:');
for i := 1 to N do
begin
write('Thi sinh ', i, ': ');
readln(t1[i]);
end;
// Kiểm tra thời điểm kết thúc bài sát hạch của mỗi thí sinh
KiemTraThoiDiemKetThuc(N, t1);
readln;
end.