Inicio
	Tipo m = matriz  [ 1 ..9999,1..5]caracter;
	M: BLO;
	 Inteiro :  G , ID,TEL, K, y, z;
	G = 0;

Enquanto(verdadeiro)faça
 Repita
	Imprima (‘nome’);
	Leia (BLO[G,1]);
 até (BLO[G,1] <> “  “);

 se (BLOG[G,1] = 'FIM')
	então abandone;
 fim-se;

 Repita
	Imprima (‘idade’);
	Leia (ID)
 até (ID>= 18 );

 str( ID , BLO[ G,2]);

 Repita
	imprima(‘sexo’);
	leia(BLO[G,3]);

	se (BLO[G,3]<> ‘M’ ou BLO[G,3]<> ‘F’)
 		então imprima ( valor invalido );
	fim-se;

 até(BLO[G,3]=’M’ e BLO[G,3]= ‘F’);

 Repita
	imprima(‘telefone’);
	leia (TEL);
 até (TEL > =11111111 e TEL<=99999999 TEL = int (TEL));

 str(TEL,  BLO[G,4]);

Repita
	Imprima (‘endereço’);
	Leia (BLO[G,5]);
 até (BLO[G,5] <> “  “);

 G <- G + 1;
fim-enquanto;

imprima('nome  idade  sexo telefone endereço'); // fiz isso para ser o cabeçalho da tabela, tem que se fora do para.
para K de 1 até G faça // lembre que o K vai até a quantidade do G em cada loop.
	val(BLO[K,2], y, z); // pega o caracter(idade) e joga na variavel y, esquece z apenas crie a variavel).

	se(BLO[K,3] = 'M' e y >= 18 e y <= 30)
		então imprima (   ‘ BLO[K,1],’  ‘,BLO[K,2] ,’  ‘,BLO[K,3] ,’  ‘, BLO[K,4] ,’  ‘,BLO[K,5],'');
	fim-se;
fim-para;


imprima('nome  idade  sexo telefone endereço'); // fiz isso para ser o cabeçalho da tabela, tem que se fora do para.
para K de 1 até G faça
	val(BLO[K,2], y, z); // pega o caracter(idade) e joga na variavel y, esquece z apenas crie a variavel).

	se(BLO[K,3] = 'F' e y >= 25 e y <= 30)
		então imprima (   ‘ BLO[K,1],’  ‘,BLO[K,2] ,’  ‘,BLO[K,3] ,’  ‘, BLO[K,4] ,’  ‘,BLO[K,5],'');
	fim-se;
fim-para;
fim