Program tres_vet;
Var
Sexo:array[1..3] of char;
idade:array[1..3] of integer;
nome:array[1..3] of string;
I,contf,contm:integer;
Begin
writeln ('informe sexo, idade e nome');
For i:= 1 to 3 do
 Begin
     Read(sexo[i]);    
read(idade[i]);  
read(nome[i]);
     if (sexo[i] = 'f') and (idade[i] >= 18) then
        contf := contf + 1
     else
        if (sexo[i] = 'm') and (idade[i] >= 18) then
            contm := contm + 1;  
 End;
     writeln('Machos maiores ', contm);
     writeln('Femeas maiores ', contf);
End.