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

Такие дела =)