Question

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

Answer 1

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.