program DiemMonTin;

var
  N, i: integer;
  diem: array[1..100] of real;

begin
  write('Nhap so hoc sinh: ');
  readln(N);

  for i := 1 to N do
  begin
    write('Nhap diem kiem tra hoc ky mon Tin cua hoc sinh thu ', i, ': ');
    readln(diem[i]);
  end;

  writeln('Diem kiem tra hoc ky mon Tin cua ', N, ' hoc sinh la:');
  for i := 1 to N do
  begin
    writeln('Hoc sinh thu ', i, ': ', diem[i]:0:2);
  end;

  readln;
end.