Program Nhap_chieu_cao;
Uses crt;
Var day:array[1..25] of real;
i:byte;
Begin
Clrscr;
For i:=1 to 25 do
Begin
Write('Nhap chieu cao cua ban thu ',i,': ');Read(day[i]);
End;
For i:=1 to 25 do
Writeln('Chieu cao cua ban thu ',i,' la: ',day[i]);
Readln
End.