Program cmm;
Var ba: boy; me: girl; ten: string;
Begin
write('Nhap vfao ten ba me may: ');
readln(ten);
End.