Program Pzim ;
 var
 num,alt,i,maior_num,maior_alt:integer;

 Begin
 maior_num:=0;
 maior_alt:=100;
 for i:=1 to 5 do
 begin
 writeln('Escreva o numero de um aluno:');
 readln(num);
 writeln('Escreva a altura do aluno:');
 readln(alt);
 end;
 if alt > maior_alt then
 begin
 	maior_alt:=alt;
 	maior_num:=num;
 end;  
 writeln('O aluno mais alto é o numero ',num,' com ',alt,' centimetros');    
 

 End.