Составьте алгоритм для определения подходящего возраста кандидатуры для вступления в брак, используя следующее соображение: возраст девушки равен половине возраста мужчины+7, возраст мужчины определяется соответственно как удвоенный возраст девушки-14.

Var a, b: integer;
begin
     write('Введите пол (0 - ж, 1 - м) и возраст свой: ');
     readln(a, b);
     if (a = 0) then writeln('Возраст Вашего суженого (не советую под стандарты подстраиваться): ', b * 2 - 14);
     if (a = 1) then writeln('Возраст Вашей будущей жены: ', b / 2 + 7);
end.

Такие дела =)