Программа на паскале с клавиатуры вводится имя на латинице . определить , является ли оно мужским или женским мужские имена заканчиваются на согласные( исключения: никита , илья) , а все женские- на гласные( исключение: любовь)

//Pascal ABC.NET v3.1 сборка 1172

Var
 s:string;
begin
 readln(s);
 if ((s[length(s)] in ['б','в','г','д','ж','з','к','л','м','н','п','р','с','т','ф','х','ц','ч','ь']) or (s='Никита') or (s='Илья')) and (s<>'Любовь') then writeln('Мужское')
  else writeln('Женское');
end.