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