Pascal/Variáveis Compostas Homogêneas Multidimensionais

programa feito Por Victor Martins

program aparecenome;
var 
    Nome1 , Nome2 : string;
    n1 ,     n2   : integer;
     begin
          write('informe os nomes desejados ');
          writeln; 
      		readln(nome1);
          writeln ('e') ;
          readln (nome2);
          writeln;
          writeln('Agora informe a idade do ',nome1 );
					readln (n1);
					writeln; 
          writeln('Agora informe a idade do ',nome2 );
				  readln (n2);
					writeln;
					writeln;
				  writeln ( 'Seu nome e ', nome1 ,' e voce tem ' , n1 , ' anos de idade ' ) ;
				  write ( 'e ', nome2 ,' tem ' , n2 , ' anos de idade ' ) ;
					readln;
				  readln;
    
    
    end.