{* Задача 41 *}

Unit ZADACH41;
Interface
Implementation
Begin
 writeln('Определение подходящего возраста кандидатуру для вступления в брак, используя следующее соображение: возраст девушки равен половине возраста мужчины плюс 7, возраст мужчины определяется соответственно как удвоенный возраст девушки минус 14');
End.

Program Age;

Uses zadach41.pas; {* Эту строку можно удалить *}
{$APPTYPE CONSOLE}
Uses SysUtils; {* Подключение модулей *}
label lM;
Var {* В работе нам потребуются переменные: *}
  cSex : char;
  iAge : Byte;
Begin
  lM :  Writeln('Enter the sex (mf)');
  Readln(cSex);
  If (cSex'm')And(cSex'f') Then
  Begin
    Writeln('Incorrect symbol!!!');
    Goto lM;
  End;
  Else Begin
    Writeln('Enter the age');
  Readln(iAge);
  Write('Optimum age Of the partner: ');
  If cSex = 'm' Then
    Write(iAge Div 2 + 7 );
  If cSex = 'f' Then
    Write(iAge * 2 - 14);
  Readln; {* Приостановка программы. Ожидание Enter *}
End;

  End.....