По программированию в pascal) вот : ввести имя, отчество и фамилию человека (в одну переменную). определить пол человека (по отчеству).

Program A1;
var
a:string;
begin
read(a);
if copy(a,length(a),1)='ч' then writeln('Муж');
if copy(a,length(a),1)='а' then writeln('Жен');
end.