program nhap_diem;
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 cua hoc sinh thu ', i, ': ');
    readln(diem[i]);
  end;
  
  writeln('Diem cua ', n, ' hoc sinh la: ');
  for i := 1 to n do
  begin
    writeln('Hoc sinh thu ', i, ': ', diem[i]:0:2);
  end;
  
  readln;
end.