Program alturas_vetores_arrays ;
var i: integer; 
    altura: array [1..5] of integer;
   
 Begin
  
  for i:=1 to 5 do 
    begin
      write ('altura do aluno ',i,': ');
      readln (altura[i]);
    end;
  for i:=1 to 5 do
   writeln ('Altura [', i ,'] = ',altura [i]);
  
 End.